PCOMPILE JUNK/JUNK XALGOL SYNTAX 


PACKET 1082 

INPUT | S CARDS FROM ZIP 
TIME 1137 

DATE 78087 TUESDAY» 03/28/78 


we* BURROUGHS B5706 TSMCP MARK XVI.0e172 AND INTRINSICS MARK XVIe00132 war 
#NOQ MESSAGES TODAY 


14237853 COMPILE JUNK/JUNK XALGOL SYNTAX 


11:37:56 ?XALGOL FILE TAPESELPASO/U819009 DISK SERIAL 
11237%57 ?DATA CARD 

11:38:00 4tXALGOL/JUNK/HAYNES= 3 BOY 1137 10/08/76 
41338201 COA IN CARD DAtXALGOL/YUNK= 3 

1138202 DKA IN SER ELPASO y819005%xXALGOL/UUNK= 3 
11238803 "EOF NO LABEL CARD DAtXALGOL/JUNKS 3eNEAR LINE 2245750 
11338104 CDA REL CARD DAtXALGOL/VUNKs 3 

11%38!04 END 

11838304 OKA REL ELPASO UB1L9IOOSIEXALGOL/JUNK= 3 
11338306 XALGOL/JUNK/HAYNES= 3eP5T= 2 DS"ED 

11%38:06 FOR Xp~LGOL/JUNK= 3:PST= 2270T= 4s cORE245360 
11238307 PKT#1082 REMOVED 


‘PCUMPILE JUNK/JUNK XALGOL SYNTAX 
PACKET 1080 


INPUT 5 CARDS FROM ZIP 


TIME 1131 
DATE 78087 TUESDAY» 03/28/78 


wwe BURROUGHS B5700 TSMCP MARK XVIe0e172 AND INTRINSICS MARK XVI .00132 *%* 


#NO MESSAGES TODAY 
41831247 @?COMPILE JUNK/JUNK XALGOL SYNTAX 


11231848 ?XALGOL FILE TAPESELPASO/U819005 DISK SERIAL 
41231850 DATA CARD 

41831953 AtXALGOL/ UUNK/HAYNES&= 3 BOy 1131 10/08/76 
11334255 CDA IN CARO DASXALGOL/JUNK= 3 

41231356 DKA IN SER ELPASO UBLIOU5SXALGOL/YUNK= 3 
1i:31156 "EOF NO LABEL CARD DAsXALGOL/JUNK= 3,NEAR LINE 2215750 
41331357 CDA REL CAKD DA!PXALGOL/VUNKS 3 

11331357 ?END 

11231857 DKA Rel ELPASO UBLIIOOSEXALGOL/JUNK= 3 
11331859 XALGOL/VUNK/HAYNES= 3ePSTs 2 DSnED 

11932100 FOR XALGOL/JUNK= 38PST= 49 7OT# 35CURE= 15360 
11232200 PKT#1080 REMOVED 


LABEL OOO000000LINE 00178087CC EX O/RSFILE S=PASCRUN/DISKSFILE LINESLINE PRINTS COMMON@EISENDS 


@ 
@ 
FILE’ PASCRUN/DISK TUESDAY 03/28/78 11844 AM 
e $ CARD SEQXEQ RESET LISTS 00001 
SS SESESTEESIVLTLITEEETERESEELEEECELELE LEE ELELELESTLETeTieettt 00002 
@ z % 00003 
% THE PASCAL RUN TIME*@SYSTEM, % 00004 
% ORONO HH, RMD OTRHeE ee Bme an we % QoOo0s 
@ % % 00006 
TST SSE SSSESISESESSSSS TSE SESE SSELLTEETETTECELELELEETCET LEC TTTETe, 00007 
BEGIN® 00008 
é INTEGER VO00167»V00168sV001693% 00009 
FILE INPUT "INPUT" (2910)3% 00010 
FILE OUTPUT 1 (2917)3% 00011 
@ % 00012 
DEFINE PRUCEDU =PROCEDURE#>s2 00013 
FUNCTN =REAL PROCEDURE #s% 00014 
e@ DOWNTO =STEP =4 UNTIL#)3% 00045 
uPTO =STEP 1 UNTIL&)% 00016 
B =BOOLEAN#+% 00017 
& FO00603 =INPUT#s% 00018 
FOO7T42 =OUTPUTH>% 00019 
LASTGH 3(536]#5% 00020 
e@ BUFSSZE =Ci3t8)]#5% 00021 
BUFPNT sC2138]#,% 00022 
EOF SC2281]#% 00023 
@ EOLN sC23ti]#,2 00024 
INP =L2ati]#,% 00025 
QUTP =(2531]#s% 00026 
e@ ENDFOUNDS(2681]#5% 00027 
MEMSIZE =10000#s% 00028 
MAXINT 254975584 3867#3¢ 00029 
@ % 00030 
ARRAY MEMLOtMEMSIZE DIV 1022,0:1022), TEXT,CHARLOt0), TEMPTEXTLONI9} p% 00031 
VO0603L0%9]» VO0742L0%1613% 00032 
 ] INTEGER MEMPNT»T#T12100603%1007423% 00033 
POINTER CHARPNTsTEXTPNT3% 00034 
LABEL TERMINATE3% 00035 
& FORMAT TERMMESS (Hees PROGRAM EXECUTION TERMINATED AT LINE "slp, "ok 00036 
CHECKERR ("eeee THE VALUE "»l*s" IS NOT IN THE RANGE “ol we eg y% 00037 
Leo.) 5% 00038 
@ ERRMARK (Xwp"xtty 9g 00039 
CONCATERR(C "eee CONCAT ERRORI Cle, th, la smen, ray yn) yg 00040 
ILLEGALCC (tween ILLEGAL CARRIAGE CONTROL CHARACTER: rtm, ay, nnn) sg 00044 
@ SWITCH FORMAT ERRMESS $28% 00042 
()9% . 00043 
(aeee NO READING WHILE EOF IS TRUEe")>» %1 00044 
e@ ("aeee NO WRITING WHILE EOF IS FALSE se)» 2 00045 
(teete ILLEGAL CHARACTER,")>» %3 00046 
("aes OVERFLOW ERROR, )s 2A 00047 
rd] (Meeee NO RESET/REWRITE ON INPUT/QUTPUT<")> 35 00048 
("eeee LINE IMAGE OVERFLOW,")3 a6 00049 
HONETOS EXPByRtsREALOVERFLOWS% 00050 
 ] 00054 
INTEGER PROCEDURE NUMDIGITS(N) 3% 00052 
° VALUE N3 INTEGER N3&& 00053 
@ 


NUMDIGITS#=IF N<O THEN 1+NUMDIGITSC#N) ELSES 


IF N>9 THEN 1+NUMDIGITSCN DIV 10) ELSE 45% 


% 
PROCEDURE RUNERRCERRNUMs»LINENUM)S 
VALUE ERRNUMsLINENUM3% 
INTEGER ERRNUMeL INENUNS &% 
BEGINS 
WRITE COUTPUT*ERRMESSCERRNUM) 3% 


WRITECOUTPUT* TERMMESS »NUMDIGITSCLINENUM) sLINENUM) 3% 


GO TO TERMINATE3% 
END OF RUNERRS2 
% 
INTEGER PROCEDURE CHECKCVALsLIMisLIM2eLINENUM) 3% 
VALUE VAL*LIMIsLIM2>sLINENUM}% 
INTEGER VALsLIMisLIM2sLINENUMSS 
BEGIN 
IF VAL<LIML OR VAL>LIM2 THEN’ 


BEGIN WRITECOUTPUTs CHEQKERReNUMDIGITSCVAL + VALSNUMDIGITS(LIMI 9% 


LIMisNUMDIGITSCLIM2) »LIMe)3% 
RUNERRC4sLINENUM) 9% 
END3% 
CHECK 8=WVAL3S 
ENO OF CHECKS 
% 


ALPHA PROCEDURE CURDATS4 
CURDATS&" "&TIMECSICA1235336]3% 


% 
ALPHA PROCEDURE WEEKDAS% 
WEEKDATSTIMECO)G™ “"L41t526)9% 


r 4 

INTEGER PROCEDURE TRUNC(CX»LINENUM)S& 

VALUE X»LINGNUMSS | 

REAL x3 INTEGER LINENUMS2 

BEGIN? 
IF ABSCX)>MAXINT THEN RUNERR(O Se LINENUM DSS 
TRUNC3=IF X<O THEN *ENTIERC#X) ELSE ENTIERCX)54 

END OF TRUNC#2% 

% 


INTEGER PROCEDURE ROUNDCXsLINENUM) 3% 

VALUE X»sLINENUM$ & 

REAL X3 INTEGER LINENUMS2 

BEGINS 
IF ABSCX)>MAXINT THEN RUNERRC4* LI NENUM) 3% 
ROUND $=X33. 

END OF ROUND3% 


4 
BOOLEAN PROCEQURE QDDC(N) 34 
VALUE NS INTEGER N3& 
ODD%s=N MOD 2 = 13% 
% 
REAL PROCEDURE SQAR(XseLINENUM)3Y 
VALUE X»sLINENUM;% 
REAL x} INTEGER LINENUM3% 
BEGINS 
IF ABSCXI>2,0769187034 THEN RUNERRC4sLINENUMI3% 
SQRISXXX3S 
ENO OF SQR3% 


K*we RUN TIME ERROR *** 


00054 
90055 
00056 
0005? 
00058 
00059 
00060 
00064 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00071 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00062 
00083 
00084 
00085 
00086 
00087 
y0088 
00089 
00090 
00094 
90092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00104 
00402 
00103 
00104 
00105 
00406 
00407 
00108 
00109 
00110 


x 
BOOLEAN PROCEDURE INCL1(A2B)3 %*ee TS THE SET "at INCLUDED 
VALUE AsBs REAL AsB3 Xewe IN THE SET "BN", 
INCLAteREALCBOOLEANCA) AND NOT BOOLEANCB))=03% 

z 

BOOLEAN PROCEDURE INCL2(AsB)3 eee TS THE SET "BY [WCLUDED 
VALUE AsBS REAL AvsBS Seek IN THE SET "A, 
INCL2s=REAL(BOOLEANCB) AND NOT BOOLEAN(CA) )=03% 

% 

BOOLEAN PROCEDURE INTSTCAs8)3 Rewe 1S THE VaLUE "a" AN ELEMENT 
VALUE AsB3 REAL AsB3 Zeee IN THE SET "Bt, 


INTSTS=]F A<O OR A>98 THEN FALSE ELSE O&B(O838"A!3)]=13% 

% 

PRUCEDURE NEW(P,SIZE)3% 

VALUE SIZE3 REAL PS INTEGER SIZES% 

BEGINS 
‘PtsIF MEMPNT#+SIZE>MEMSIZE THEN O ELSE MEMPNTJ% 
MEMPNT 3 @MEMPNT+SIZE3% 

END OF NEW3% 


% 
PROCEDURE DISPOSE(PsSIZE)3% 

VALUE SIZES REAL P3 INTEGER SI7ZEs2 
BEGINS 

END OF DISPOSE3% 


x 
PROCEDURE PACKCA*LLIMsULIMs le Ze LINENUM) 3% 
VALUE LLIMsULIMsIsLINENUMSS 
ARRAY AC#)]3 ALPHA Z3% 
INTEGER LLIMSULIMs IT »LINENUMSS 
BEGIN? 
Z3303% 
FOR T4830 STEP 3 UNTIL 6 DOS | 
ZEmACCHECKCI+TI,LLIMSULIMs, INENUM) J &@ Z C4it35t36 334 
END3% 
4 


PROCEDURE UNPACKCZsAsLLIMsULIMs 1 »sLINENUM)33 

VALUE ZeLLIMsULIMsIsLINENUM3% 

ARRAY AL*]3 ALPHA 23% 

INTEGER LLIMSULIMs ToL INENUM3% 

FOR Tite0 STEP 1 UNTIL 6 DOX 
ALCHECKCI+TLeLUIMeULIM*LINENUM) Jie 0 & Z C5241" OxT1s6j3% 


x 
REAL PROCEDURE CONCAT(AsBsAS»BSpNeLINENUM)3% 
VALUE AsBeASeBSpNeLINENUMSS = 
REAL A»B3 INTEGER AS»BSsNesLINENUMSS 
BEGINS 
XE nee OR BS<1 GR N<O QR AS*N>48 OR BS+N>48 THENS 
BEGINS 
WRITE COUTPUTsGONCATERRs NUMOIGITSCAS) »ASsNUMDIGITS(BS) 0% 
_. BSsNUMDIGITSCN) 9N)3% 
RUNERRCOsLINENUM)3% 
END3% 
CONCAT3&A & B C47=ASS479BSINI]3% 
END OF CONCATS% 


x 
BOOLEAN PROCEDURE BITCN»LINENUM)3 = -&*** SET BIT NO "N" IN A WORD, 
VALUE NeLINENUM$ INTEGER NeLINENUM3% 


00111 
00112 
00113 
00114 
00115 
00116 
00117 
00118 
00119 
00120 
Q0121 
00122 
00123 
00424 
00125 
00126 
00127 
00128 
00129 
00130 
00431 
00132 
00133 
00134 
00135 
00436 
00137 
00138 
00139 
00140 
00141 
v0,42 
00143 
00144 
00145 
QQ146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00164 
00162 
00163 
00164 
00165 


00166 — 


00167 


BIT?=BOOLEANCO & 1 C3B@CHECKCN,O+38-LINENUM) 2081) 952 


% A 

BOOLEAN PROCEDURE BITSCNLsN2esLINENUM)3 eee SET BITS MNLML MNO", 
VALUE NieN2eLINENUM) 

INTEGER NisN2esLINENUN3S% 

BITSs=BOOLEANCO & 3°7777777777777" CIB*CHECKCNIs Os 3GeLINENUM) 8$3g38% 


% 


CHECKCN2s 0s 38eLINENUM )"N141) 5% 


PROCEDURE RLINECFs BUF» INFO) 3% 
FILE F3 ARRAY BUFLOI]3 INTEGER INFOsS 
BEGINS 


LABEL ENDFILEs% 

INFOsEOLNS=0% INFO.BUFPNTs:=13% 
READCFs999+BUFC#)) CENOFILEI5% 

REPLACE CHARPNT BY POINTERCBUFEC*]) FOR 13% 
INFOsLASTCHS=CHAR(0}5% 

IF FALSE THEN’ 

BEGIN ENDFILE® INFOcENDFOUNDIS14% 

ENDs% 


END OF RLINESS 


% 
REAL PROCEDYRE PREAD (F sBuUF sINFo»MODE»LINENUM)S% 
VALVE MODEsEINENUMS% 

FILE F3 ARRAY BUFLOI3% 

INTEGER INFOsMQDE*LINENUM3% 

BEGINS 


DEFINE GETCHARS% 
BEGIN% 
IF BOOLEANCINFO,EOLN) THEN’ 
BEGINS 
REINE(FsBUFsINFO)S CHteINFO,LASTCH3% 
END ELSE% 


IF INFOeBUFPNT=INFOoBUFSIZE THENS 
BEGIN CHEE" "3 ITNFOsEOLN? #1 END ELSES 
BEGINS 
REPLACE CHARPNT BY POINTERC BUFEC 4) )*+INFO,QUFPNT FOR 13% 
CHs=CHARLO}]; INFO.BUFPNTseINFOeBUFPNT+Is% 
END END OF GETCHAR#s% 


DEFINE READERRCERRNUM) 8% 

BEGINS 
WRITE COUTPUT» 999s BUF (*) 3% 
WRITECOUTPUT*ERRMARK? INFOsBUFPNT@1 5% 
RUNERRCERRNUM»LINENUM) 3% 

END OF READERR#;% 


REAL. RES?. ALPHA CH32 .. 


BOOLEAN NEGATIVE,NEGEXPS INTEGER POWERSEXPS% 
LABEL OVERFLOWsRETURNGS 


1F BOOLEANC{NFO,EOF) THEN RUNERR( {ol INENUM) 3% 
IF BOOLEANCINFQseENOFOUND) THENS 
BEGINS. ans 
INFO,EOFt=13 PREAD#HO3% 
GO TO RETURNS® 
END3% 
IF MODES1 THEN Bees MODE = CHAR ae 


00168 
00169 
00170 
00174 
00172 
00173 
00174 
00475 
00176 
00177 
00178 
00179 
00180 
00181 
oolee2 
00183 
00184 
00185 
00186 
00187 
00188 
00189 
00490 
00193 
00192 
00193 
00194 
00195 
00196 
00497 
00498 
00199 
00200 
00201 
00202 
00203 
90204 
00205 
00206 
00207 
y0208 
00209 
00210 
00211 
00212 
00213 
00244 
00215 
00216 
0021? 
00218 
00219 
00220 
00221 
00222 
00223 
00224 


BEGINS 
PREADSSINFOsLASTCHS GETCHARS INFOsLASTCHISCHS% 

END ELS&% : 

BEGIN Bewe MODE @ REAL/INTEGER ## 
CHSEINFO,LASTCH32 


WHILE CH= *® aND NOT BOOLEANCINFOsENDFOUND) DO GETCHAR;% 
IF BOOLEANCINFOeENDFOUND) THEN% 
BEGINS . 
INFOSEQF#213 PREADIS0;% 
GO TO RETURN3% 
END3% 


IF CHa™+" OR CHe"=" THEN BEGIN NEGATIVE? sChs"="3 GETCHAR ENDS 


IF CH?9 THEN READERR(3)3% 
RES3sCH3 GETCHAR;% 
WHILE CHS9 DO BEGIN RESt=10xRES*CH3 GETCHAR ENDS% 
IF MODE=3 THEN % MODE = REAL, 
BEGINS 

IF CH="," THENS 

BEGINS 

GETCHARS IF CH>9 THEN READERR(3))% 


WHILE CHS9 DO BEGIN RESt®10xXRES+CHSPQWERSaPOWER@ZSGETCHAR ENDS 


ENDS% 

IF CH="E" THENS 

BEGIN% 
GETCHARS% 


IF cHa"+" OR cHs"@" THEN BEGIN NEGEXPEFCHE"""5 GETCHAR ENDAS 


IF CH99 THEN READERR(3)3% 
WHILE CHS9 DO BEGIN EXPt2®10XEXP4CHs GETCHAR ENDS 
IF NEGEXP THEN EXP#aaEXP#% 
ENOD3% 
POWERtSPQWER+EXPS% 
REALOVERFLOWssOVERFLOWS RESS=RESX1Q*POWERS2 
IF FALSE THEN OVERFLOW? READERRC4) 3% 
REALOVERFLOWS=033% 
END EESE IF RES>MA~XINT THEN READERR(4) 3% 
PREADSeIF NEGATIVE THEN =RES ELSE RES32 
INFO,EASTCHI=CHS% 
END3% 
RETURNS% 
END QF PREADS% 
% 


x 
PROCEDURE WLINECF »BuFsINFO)S 
FILE FS ARRAY BUFCOJS INTEGER INFOSS 
BEGINS 
ALPHA CC3% 
IF BOOLBANCINFO.OUTP) THEN 
BEGINS 
REPLACE CHARPNT BY POINTFROBUFC*#)) FOR 13 CCESCHAR[OI3% 
REPLACE P@INTERCBUFC#)) BY " "3% 
IF CC=" " THEN WRITECQUTPUT»999eBUF(C#)) ELSES 
IF CCB%4+" THEN WRITECOUTPUTCNOIs999+BUFC*)) ELSES 
BEGINS . re Bsc contrasts eae 
IF Cc="0" THEN wRITECOYTPUT) ELSES 
IF cc2"=" THEN WRITECOQUTPUTCDBLIJ) ELSES 
IF CC2"1" THEN wRITECOUTPUTCPAGE)) ELSES 
WRITE COUTPUTsILLEGALCC,CC)3% 


Gee PRINT A LINES *** 


00225 
00226 
00227 
00228 
00229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 
00238 
00239 
00240 
00244 
00242 
00243 
00244 
00245 
00246 
0024? 
00248 
00249 
00250 
00254 
00252 
00253 
00254 
00255 
00256 
0025? 
00258 
00259 
00260 
00264 
00262 
00263 


00264 


00265 
00266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
00274 
00275 
00276 
00277 
00278 
00279 
00280 
00284 


WRITECOUTPUT» 999e# BUFEL 4] )3% 
ENO3% 
END ELSE WRITECF #9999 BUFLC He) )3% 
REPLACE POINTER(BUFEC*)]) BY * & 
INFO eBUFPNT8203% 
END OF WLINEJ% 
% 


FOR INFOsBuFSIZE3% 


x 
PROCEDURE CHFILC(F)3% 
FILE FS 
BEGINS 
ARRAY AL[0%6]353% 
SEARCHCR sAC wl] )3% 
IF ALO]S"1 THENS 
BEGINS 
F.AREAS 8" 203% 
F,eAREASIZE t= 3003% 
END34 
END OF CHFIL3% 
% 


x a. 
PROCEDURE een ee rae np renen eaten perm tn tog ae agua ee! 
VALUE Al sA2ZsA3A4 s AS pAG GAT pAB rAD ALO pAL1 » ALS pALENGsLINENUMS & 
FILE es ARRAY BUFLO]3 INTEGER INFO*PALENGoLINENUMAS 
ALPHA Al sA2rA3eA4s AD 2 AG GAT sAS DAD DALI SALI» AL23% 
BEGINS 
ALPHA AS’ POINTER PNT3% 
XIT#S . 
TP not aso, CANCINPOSEGES THEN RUNERRO2e_ IT NENUM)3% 
IF INFOeBUFPNT+ALENG2INFOeBUFSIZE THEN wELINECF so BUF» INFO)S% 
PNTESPOINTERCBUF Ce] )+INFOeRUFPNT3% 
INFOaBuUFPNTs SINFO eBUFPNT+ALENG3 & 
FOR ASPAlLr ARP Ade Ade pSe pOrpn7e pBo aI alOvraiisai2 OO% 
BEGINS 
TEXTCO]S=a3% | 
REPLACE PNTIPNT BY TEXTPNT FOR MINCALENGs7)3% 
ALENGSSALENG@=73 IF ALENGSO THEN GO TO EXIT3% 
ENOD3% 
ExIT:% 
END OF WALFAS2% 
% 


% 

PROCEDURE PWRITECF »BUF sINFOs,E sE MODE» MoNo lL TNENUM) 3% 
VALUE Es EMOBEsMsNoLINENUM33 

FILE FZ ARRAY BUFCO]3 REAL E33 

INTEGER INFOsEMBDE sMeNoLINENUM3 2% 


BEGINS 
INTEGER NCHARS»NEXP,13 POINTER CPNTS% 
DEFINE PUTCKAR(C)= | % PUTS A CHARACTER INTO TEMPTEXT 


BEGIN CHARL@]$2C3 NCHARStaNCHAKS+ 13% 
REPLACE GPNTSCPNT BY CHARPNT FOR 13% 


END#3% 

x 
PROCEOURE PUTINT(N)3 % PUTS AN INTEGER INTO TEMPTEXT 
VALUE N& INTEGER NZ % WITH ZERO SUPPRESSION, 


IF NS9 THEN PUTGHARCN) ELSEX 


00282 
00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 
00292 
00293 
00294 
00295 
00296 
Qde97 
00298 
00299 
00300 
Q0301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
QO314 
00312 
00313 
00314 
00315 
00316 
003147 
V0318 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
00338 


BEGIN PUTINTCN DIV 40)3 PUTCHARCENTIER(CN MOO 10)) ENDSS 


CPNTMRPOINTERCTEMPTEXTO¥I 3% 
IF NOT BOOLEANCINFO.EOF) THEN RUNERRC2sLINENUM) 3% 
IF EMQODES1 THEN _  %eee MODE = INTEGER ***% 
BEGIN’ 
IF E<O THEN BEGIN PUTCHAR("@")3 EtS"E ENDS 
PUTINTCED3% 
END ELSE% 
IF EMODE=2 THEN Sees MODE @ REAL #e® 
BEGIN’ 
PUTCHARC™ ")5% 
IF E<O THEN BEGIN PUTCHARC”#")3 Et#"E ENDSS 
IF E>MAXINT OR N<O THEN % FLOATING*POINTe 
BEGINS 
IF E>0 THENS 
BEGINS ; 
WHILE E<t 00 BEGIN NEXPISNEXPels EF elOxXE ENDS S 
WHILE E210 DO BEGIN NEXP#SNEXP413 £37E/710 ENDS% 
END3% 
TtsMAX(M"B94)5% 
ESzE+0¢Sx100("1)3% 
IF —€ GE@ 19 THEN BEGIN NEXPSSNEXP413 Ets 
PUTCHARCENTIERCE))3 Es*ErENTIERCE)S PU 
00 BEGINS 
Ete1OKEF PUTCHARCENTIER(CE) 3% 
EMSE"ENTIERCE)S J[tazrlss 
END UNTIL 1503% 
PUTCHAR("E")3% sens ae 
IF QEXP<0 THEN BEGIN PYTCHAR("=")3 NEXPSS*NEXP ENDS 
ELSE PUTCHARC"™+")33% 
PUTCHARCNEXP DIv 10)5 PUTCHARCENTIERCNEXP MOD 10))5% 
END ELSE% | 
BEGIN % FIXED*POINTs 
EisE+OeGX1Oe Cen s% 
PUTINTCENTIERCE))3 PUTCHARC™.")3 ESmEPENTIERCE 3% 
IF N>150 THEN RUNERRCO,LINENUM)32 
FOR Its1 STEP 1 UNTIL N OO 
BEGIN Et®418xE3 PUTCHARCENTIER(E))3% 


ES=EPENTIERCE)3% 
END END END ELSE | 
IF EMODES3 THEN Sees MODE * BOOLEAN *## 


BEGIN’ 


IF E<0,5 THEN REPLACE CPNT BY "FALSE" ELSE REPLACE CPNT BY "TRUE"; 


NCHARS#aIF €<0,5 THEN 5 ELSE 43% 
END ELSE% 
IF EMODEs5 THEN %eee MODE & ALFA wom 
BEGIN: 
TEXTCOJ33E3 NCHARS2BMIN( M97 3% 
REPLACE CPNTSCPNT BY TEXTPNT FOR 73% 
END ELSEX 
BEGIN Zane MODE @ CHAR *##* 
_ PUTCHARCE )3% 
END34 
IF NCHARS>M THEN MS#NCHARS3S% 
IF INFOeBUFPNT#M>INFO,BUFST ZE THEN WLINECF BUF sINFQ)3% 
IF M>INFO,BUFSIZE THEN RUNERR(6eLINENUM) 3% 


00339 
90340 
00341 
00342 
90343 
00344 
00345 
00346 
00347 
00348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00358 
00359 
00360 
09361 
00362 
00363 
00364 
00365 
00366 
00367 
00366 
00369 
00370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00378 
00379 
00380 
00381 
00382 
00383 
00384 
00385 
00386 
00367 
00388 
003489 
00390 
003914 
00392 
00393 
00396 
00395 


es 


REPLACE POINTERCBUFC#I])+CINFOeBUFPNT+M"NCHARS) BY% 
POINTERCTEMPTEXT£L*)) FOR NCHARS#& 
INFOsBUFPNT&=INFO,BUFPNT+M 3% 
END OF PWRITESS% 
2 


% 
PROCEDURE PUTCF»sBUFsINFOsLINENUM) 3% 
VALUE LINENUM3& 
FILE F3 ARRAY BUF C#I3% 
INTEGER INFOsLINENUMSS 
BEGIN . 
IF INFO.BUFSIZE20 THENS 
BEGINZ 
IF NOT BOOLEANCINFO,SEQF) THEN RUNERR( 2, TNENUM) 3% 
WRITEGF 51023 +BUF CH] 25% | 
ENp ELSE PWRITeCFeBUFs INGOs, INFO,LASTCHs Godel *LINENUM 3% 
END oF PUT3% 
x 


% 
PROCEDURE GETCF,BUF es INFOsLINENUM) 32% 
VALUE LINENUM3% 
FILE F3 ARRAY BUFC#I3% 
INTEGER INFQeLINENUM3% 
BEGIN 
ALPHA X3 LABEL ENDFILES% 
IF INFQeBUFSIZESC THENS 
BEGIN? 
IF BOOLEANCINFOeEQOF) THEN RUNERRC +L INENUMI3% 
REAOCF2102328uUFe*]) cCENDFILE]+4% | 
IF FALSE THEN ENDFILE® INFOeEOF #=15% 
ENO ELSE xesPREADCF, BUF, INGOs ls LINENUM)3% 
ENO oF GET3*% se ~ 
% 


% 

PROCEDURE PPAGECF sBuF sINFOsLINENUMIA% 

VALUE LINENUM3® 

FILE F3 ARRAY BUFCa)3% 

INTEGER INFOsLINENUWSS 

BEGIN’ 
IF NOT BOOLEANCINFO.EQF) THEN RUNERRC osLINENUM)32 
WRITECFEPAGE) 3% 

END OF PPAGE3% 

% 


% i 
PROCEOQURE RESETCF BUF » INFOsl INENUMI 3% 
VALUE LINENUMS% 
FILE F3 ARRAY BUFC¥I13%. 
INTEGER INFOsLINENUM3% 
G 

oe BOOLEANCINFO,INP) OR BOOLEANCINFO.OUTP) THEN RUNERR(SsLINENUM) 3% 

REWINDCF)$ INFOeEOF#wO3 INFO®EOQLNE SOS INFOeBUFPNT# S03% 

INFOeENDFOUNDS 883% 

IF INFOeBUFSIZEsO THEN GETCF #BVF pe INFOsLINENUM)2 

ELSE RLINEC(FeBUFsINFO)3% 

END OF RESET3% 


PROCEDURE REWRITECFs BUF» INFO*LINENUM) 3% 


00396 
90397 
00398 
00399 
00400 
00404 
00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 
OO4L4 
004te2 
00413 
00414 
00415 
00416 
004i? 
00418 
00419 
00420 
00421 
00428 
00423 
00424 
00425 
00426 
00427 
00428 
00429 
00430 
004314 
00432 
00433 
00434 
00435 
00436 
00437 
00438 
00439 
00440 
00444 
00442 
00443 
00444 
00445 
00446 
00447 
00448 
00449 
00450 
00451 
00452 


VALUE LINENUMS% 

FILE FS ARRAY BUFC #32. 

INTEGER INFOsLINENUMS® 

BEGINS 
IF BOOLBANCINFO,INP) OR BOQLEANCINFO*OUTP) THEN RUNERR(S*LINENUM) 3% 
REWINDC(F)3 INFOsEOF8=13 INFOeBUFPNT8#03 INFOsENDFOUNOS 503% 
IF INFOsBUFSIZE%0 THENS 
REPLACE POINTERC(BUFLC*)) BY * * FOR INFOeBUFSIZES% 

END OF REWRITE3% 

% 

% 

PROCEDURE INITCINPUTOECL) 32% 

VALUE INPUTDECL3% 

BOOLEAN INPUTDECL3% 

BEGINS 
MEMPNTt#13% 
CHARPNTSSPOINTERCCHARC#))#75 TEXTPNTS#POINTERCTEXTC*) 413% 
T1203) T,pURSIZE8#803 TeBUFPNT#380% T,EOLN¢S14 T,INPt313% 
100603!%=T3 IF INPUTDECL THEN RLINECINPUT,V00603,100603)3% 
T3203 T,BUFSYZE3=1323 T,LOLNS713 T,QUTPS343 T,EOF 713% 
LOO7428ET3% 
REPLACE POINTER(VOO742(")) BY * " FOR 17 wOROSs% 

END OF INIT#% 


LABEL, 000000000, Ine OO178087CC EX Q/RSFILE SaPASCRUN/DISKSFILE LINEwm_L INE PRINTS COMMONSISENDO 


00453 
00454 
00455 
00456 
00457 
00458 
00459 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00468 
00469 
00470 
00474 
Q0472 
00473 
00474 
00475 


7R 


COMPILE JUNK/JUNK XALGOL SYNTAX 


TABLET ae CARDS FROM ZIP 
DATE 78087 TUESDAY» 03/28/78 


*** BURROUGHS B5700 TSMCP MARK XVJ,00¢172 AND INTRINSICS MARK XVI,Oe132 *** 
#NO MESSAGES TODAY 


41339317 ?COMPILE JUNK/JUNK XALGOL SYNTAX 


11339320 2XalGol FILE TAPEZELPASQ/HAYNES DISK SERIAL 0 
11:39:20 ?DATA CARD 

11839324 AIX ALGOL/JUNK/HAYNES= 3 BOY 1139 10/06/76 
11%39%26 COA In CARD DASXALGOL/JUNKs 3 

11#39%28 DKA IN SER ELPASO HAYNESSXALGOL/JUNK® 3 
11#39%30 PBO1985 OUT O14 LINES XALGOL/UUNKe 3 
11139333 DKA OyTt SER DSK4 HAYNESEXALGOL/JUNKS 3 
41239357 DKA OUT ROM JUNK JUNKIXALGOL/ JUNKs 3 
11840301 DKA OuT SER OSK2 HAYNESSXALGOL/JUNK= 3 
11348830 3TI 

11348830 TIME FOR XALGOL/JUNKs 3 IS 4226 IN 98114 
11249338 Pppides OUT O12tXaLGOL/4UNKs 3 

11351,;07 CDA REL CARD DASXALGOL/VUNK® 3 

eee PEND 

11351807 DKA REL ELPASO HAYNES*XALGOL/VUNK= 3 


08 DKA OyT SER OSRTL HAYNES: XALGOL/JUNKS 3 

20 OKA OQuT SER OSRT2 HAYNES#Xp~LGOL/JUNK= 3 

30 DSRTL/HAYNES/HAYNES# O SEGS**CREATED 03726778 AT 11351:07 318 
30 DKa Rei pSRTL HAYNESEXa~LGOL/ JUNK= 3 

30 DSRT2 HAYNES HAYNE S= 0 SEGS"==CREATED 03,728,778 ay 11151818853 
34 


dls5ls 
113518 
11451, 
1138513 
418518 
143513 DKA Rek OSRT2 HAYNESSXALGOL/JUNK= 3 
113513 


314 DKA OUT SER DSRT1 HAYNESSXALGOL/ YUNKS 3 
11853329 DKA OQyuT SER DSRT2 HAYNES XALGOL/JUNKS 3 
11855810 #nQ USER DISKIXALGOLZ JUNK? 30 151 SEGS 
11855839 30K 
11859245 #NOQ USER DISKEXALGOL/JUNK= 3° 151 SEGS, 
11356213 30K bere oat 
11%56%22 #NO USER DISK&SXALGOL/JUNK= 3" 151 SEGS, 
11896827 DS OK 
114563827 #NO USER DISKEXALGOL/JUNK= 3° 151 SEGS, 
11358246 oS OK 
11356246 #NO USER DISKsXALGOL/JUNKe 3° 454 SEGS, 
12300808 308 
12200811 “OPRTR DS#EDSXALGOL/JUNK® 3eNEAR LINE 17100100 
12800811 DSK2/HAYNES/HAYNES® 900 SEGS*"*CREATED 03/28/78 AT 114840200813 
128008ii DKA REL DSK2 HAYNESSXALGOL/UUNK® 3. 
12#00%42 DSKI/HAYNES/HAYNES®= 300 SEGS@®"CREATED 03/28/78 aT 11839831439 
12800312 DKA REL DSK HAYNES? XALGOL/JUNK® 3 
12800312 Ppp10g5 REL 012 LINE 75029XALGOL/JUNKS 3 
12%80@%12 JUNK/ JUNK/HAYNES® 630 SEGS=CREATED 03/28/78 AT 1183935584) 


12800313 
412800!813 
128003813 
12:90813 
12300814 
12800316 
12800316 
12800816 


DKA REL JUNK JUNKSXALGOL/ JUNK= 3 

DSRT2/HAYNES/HAYNES® 2442 SEGS*"*CREATED 03/28/78 AT 11353828841 
DKA REL OSRT2 HAYNESSXALGOL/JUNKe 3 

DSRTI/HAYNES/HAYNESS® 2112 SEGS@*CREATED 03/28/78 AT 11851830818 
DKA REL OSRT4 HAYNESSXALGOL/JUNK® 3 

XALGOL/JUNK/HAYNES= 3ePST® 1005 DS*ED 

FOR XALGOL/JUNK= 33PST= 605,-J0T# 273eCORE#15360 

PKT#1084 REMOVED 


e @ 
@ LABEL OOOQOOCOOLINE  001780g877COMPILE YUNK/JUNK XALGOL SYNTAX XALGUL /JUNK | 
CUSTOMS B#5700 IPC XALGOL COMPILER MARK XVzI,0,00°424 TUESDAY* 03/28/78» 11239 AM, 
e i] 
@ JUNK = / JUNK @ 
SeSsrststasrzsserzescs 

e | a 
SELL AAUTARAAL GLH RLRAVBAVALLTATA BLATT LT AULA SALLLUVATALLLTUTVLIAABLA 00003 T 0000 
% : 00004 T 0000 

@ x % 00005 T 0000 @ 
% * * % 00006 T 0000 
% *“ PASCAL COMPILER * x 00007 T 0000 

& x CECI T COPS CLE CoC CCS LoL croc ee rece fy % 00008 T 90000 @ 
% % 00009 T 0000 
% % 00010 T 0000 

@ % WRITTEN 1975 BY % 00011 T 0000 @ 
% DAG F_, LANGMYHR» % 00012 T 0000 
% HERIOT*WATT UNIVERSITY» % 00013 T 0000 

@ % EDINBURGH, % 00014 T 0000 @ 
% % 00015 T 0000 
% % 00016 T 0000 

Ss PST ESESETETESETELESELILTETELELELELELELELESTEEEEC CECE LELELELELELELEseet. 00017 T 0000 e 
% x 00018 T 0000 
% % 00019 T 0000 

© % PART 18 DECLARATIONS, % 00020 T 0000 @ 
% fn en om OD ae a Dn OF % oo0de2il T 0000 
% x go022 T 0000 

@ % % 00023 T 0000 a 
CTT TTTTETETETET TELE TELELELELELLECE TELLER EE CECE TEC EELECEELETESEE Lee 00024 T 0000 
% 00025 T 0000 

@ % 00026 T 0000 @ 
BEGIN® 00027 T 0000 

START OF SEGMENT weaker tanen 2 

e DEFINE EDITIONa"2,3"#3% 00028 T 0000 e 
INTEGER NUMERRS» % @R#21; NUMBER OF ERRORS IN PRUGRAM, 00029 7 0000 
SAVEF ACTOR» % @Re22? SaVEFacTOR FOR cOpE FILE. 00030 T 9000 

e x >0 COMPILE TO LIBRARY, 00031 7 0000 a 
x 0 COMPILE AND RUN, ~ 00032 T 0000 
% <O COMPILE FOR SYNTAX, 00033 T 0000 

& CARDCNTS % @R+03t NUMBER OF CARDS READ« 00034 7 9000 eo 
FILE CARD "SqURce” (€2e10°150)3 . & SOURCE CQDE InpPUT FILE 00035 T 0000 
FILE LINES 1 €2017)3 % PRINT FILE. 00036 T 0003 

rd] FILE PASCALGOL pISK SERIAL (208600) (2105150sSaVE 0)3 & CODE FILE 00037 T 0007 e 
DEFINE LINESPERPAGE=588 »% sack 00038 t 0013 
MAXINT®54975581 388783% 00039 T 0013 

@ % 00040 T 0013 @ 
Bees COMPILER CONSTANTS *#« : 00041 T 0013 
DEFINE mAXTABLES 2508, ZMAX NUMBER OF NAME TABLES+ Qoo42 T 0013 

@ MAXNAMES "9978 %MAX NAMES IN EACH TABLE, 00043 T 0013 @ 
MAXLEVE; *15#e — %MAX DEPTH OF PROCEQURE DECLARATIONS, — 00044 T 0013 
MAXGASES 22118» ZMAX LABELS IN A CASE*@STATEMENTs 00045 T 0013 

@ MAXLABS 21008 %MAX NUMBER OF LABELS, 00046 T 0018 @ 

MAXPARAMS =200#? _ BMAX NUMBER OF PARAMETERS IN WHOLE PROGRAM, 00047 tT 0013 

MAXTYPES *10228> SMAX NUMBER OF DIFFERENT TYPES, 00048 T 0013 = 

sd e 

@ 8 


MAXGONSTS 22008, 
MAXTEMPS 35>, 


MAXWITHSYMSs250#> XMAX 
MAXSYMS ZB00#s AMAX 
LISTLENGTH *800#, BMAX 
MAXEXTFILESS2O8» BMAX 
MAXFILES S208» XM AX 
MAXPNTRS 35083 %MAX 


Sees NAME TABLES w# | 
ARRAY NAMETAB1,NAMETAB2sNAMETAB3LOSMAXTABLESs OSMAXNAMES J3% 


DEFINE NAMELENGTH sC4156)#s% 


x 


TYPE 0921018 »% 
IDCLASS =Ci2t3]#.% 
VAR 808#s% 
CONST#145% 

FUNC S283 
PROC ®38#5% 
TyPES84#,% 

INFOQ SC23511) 89% 
FORMAL BeL2431]85% 


FORWARDDEF #02584) #5% 
EXTERNALFILESC26%1) 485% 


Rawe DISPLAY VECTOR wee 
ARRAY DISPLAYCOsMAXLEVEL ISS 


DEFINE RECTYPE 


% 


BC9V10] 42% 
FIRSTWITHSYM =(19810]45% 
LASTWITHSYM =8£29310]#5% 
NUMPNTRSINWITHSL35%6) &0% 
BRACKETSINWITH=C3631) 45% 
NAMETAB BL 46471) #3% 


Rees TYPE TABLES ##e 
ARRAY TyPETABL,TYPETAB2sT yPETABSLOSMAXT YPESJ3& 
DEFINE FORM =r 3tqleox 


NUMERIC 20#s% 
SYMBOLIC=1#9% 
SUBTYPE *2#2% 


MAINTYPES(C33¢10] e932 


CHAR B3#04 
FLOATING#4#4 54% 
ALFA 5K 9% 


NUMBER 
NUMBER 
LENGTH 
NUMBER 
NUMBER 
NUMBER 


SIZE 
STRU 


SET. - #6 #a% 
SETTYPE 3(33410]#9% 
POINTERS#7# 0% 
POINTTYPES[33810]45% 
ARRAYS 28#5% 
INXTYPE =€33810)#9% 
ARRTYPE 3(438101]40% 
RECORD 9#>% 
RECTAB £33810) 82% 
FILES 810% s% 
FILETYPES(33110) 80% 
TEXTFILESL1L#>% 
 SLiSt pela 
CTp23t8le3% 


OF 


RSIZE OF CONSTANT TABLE, : 
®NUMBER OF EXTRA VARS IN EACH PROCEDURE, 


SYMBOLS USED BY WITH#STATMS, 
SYMBOLS IN ONE EXPRESSION, 
VAR AND PARAM LISTS, 
EXTERNAL FILES» 

FILES DECLARED AT ONE TIME, 
UNDECLARED POINTERSe 


00049 
00050 
00051 
00052 
00053 
00054 
00055 
00056 
00057 
00058 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
00066 
00067 
00068 
00069 
00070 
00074 
00072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
00085 
00086 
0008? 
00088 
00089 
00090 
00091 
00092 
00093 
00094 
00095 
00096 
00097 
00098 
00099 
00100 
00401 
00102 
00103 
00404 
00405 
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0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0013 
0018 
0015 
00145 
0015 
0015 
0015 
0015 
0015 
0018 
0018 
0015 
0015 
0015 
001s 
0015 
0015 
0017 
0017 
0017 
ooir 
oo1? 
0017 
0017 
0017 
0017 
0019 
0019 
Q019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
0019 
oo19 
0019 
0019 
0019 
0019 
0019 


INTEGER NUMTYPES32 

% 

Zeue PARAMETER TABLE «we 

ARRAY PARAMTABrO!MAXPARAMS J3% 

DEFINE PARAMNAME 8£9410]8,% 
PARAMKIND C1384] 85% 
PARAMLEVEL=(238101]#5% 
PARAMTYPE 3£33810]#5% 
PARAMFILE #03431) 85% 

INTEGER NUMPARAMS3% 

% 


Bwee CONSTANT TABLE *%* 

ARRAY CONSTTABLOtMAXCONSTSIJ3% 
INTEGER NUMCONSTS32 

x 


Suew LABEL TABLE *** 

ARRAY LABTABLOsMAXLABS]4% 

DEFINE LABWALBC14tisl#s% 

LABDEFSc1i58ijes% 

INTEGER NUMLABS*#FIRSTLABSS 

x 

Reee TABLES FOR 1/0 AND CHARACTER HANOLING **#* 

ARRM#Y CHLCOPOJ+ TEXTCO8L Je STRINGCOLiLJs2 
POINTER CHARPNTsTEXTPNTs TEXTPNTOsSTRINGPNTSS 

ARRAY ICARDLO39)» LINECOS16)s XL INELO%10]» ALGOLCARDLON9I 3% 
POINTER CAROPNTsLINEPNTsxXLINEPNTsALGOLPNT#& 
INTEGER CHARCNT+ ALGOLCNTsMARGINCNT 3% 

ARRAY HEADTEXT(O810)» ERRLINE(O316)3% 
INTEGER LINECNTsPaGECNTsERRINXIS 

b | 

Reew XREF EILE ANDO TABLE *e« 

FILE XREFFILE DISK SERIAL €2023000) (2535150)5% 

ARRAY BLOCKTABrOSMAXTABLES]» XREFLINELOS16)4 &% 
INTEGER NUMXREFeNUMBLOCKS; POINTER XREFPNT32 

% 

%*eee OTHER TABLES *** 

INTEGER ARRAY VARLISTCO&LISTLENGTH); x TEMPORARY LIST OF VARIABLES. 
INTEGER VARINDEXsFIRSTVARS2 


ARRAY SYMTABLOsMAXSY MS 33 * USED BY "EXPRESSION". 
INTEGER NUMSYMS;3% 

ARRAY WITHTABLOSMAXWITHSYMS); % USED BY "WITHSTAT", 
INTEGER NWITHSYMSS% 

INTEGER ARRAY SYMBOLL0I64]); % USED BY "INSYMBOL", 

INTEGER ARRAY sYMKIND(0161)3 % USED IN ERROR RECOVERY, 


ARRAY PNTRTABL,PNTRTABQsPNTRTAB3COSMAXPNTRSJ3% USED FOR FORWARD POINTERS 
INTEGER NUMPNTRSSS 

ARRAY EXTFILETABLOSMAXEXTFILES)3 
INTEGER NUMEXTFILES3% 

ARRAY FILETABCOSMAXFILESI3 
INTEGER NUMFYLESSS. 

BOGLEAN ARRAY ERRLO3119]3 

% 


% EXTERNAL FILES, 
% FILES IN USE. 

% RECORDS ERRUR MESSAGES, 
Ree* COMPILE TIME OPTIONS *+# 

BOOLEAN LISTOP] JON» RESWORDOPT ,ON»CHECKOPT ON» DUMPOPT JONsXREFOPT ONS 2 
INTEGER CARDLENGTH3& 

% 


Reee INTRINSIC TYPES #4 


00106 
00107 
00108 
00109 
00410 
00111 
00112 
00113 
001144 
00115 
001416 
00117 
00118 
00119 
00420 
90121 
00122 
00123 
00124 
00425 
00126 
00427 
00128 
00429 
00130 
00133 
00132 
00133 
004334 
00135 
00136 
00137 
00138 
00139 
00440 
00141 
00142 
00143 
00144 
00445 
00146 
00147 
00148 
00149 
00450 
001514 
00452 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
00161 
00162 
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0019 
0019 
0019 
0019 
0024 
0024 
0021 
0024 
0024 
0024 
0021 
0021 
00214 
0023 
0023 
0023 
0023 
0025 
0025 
0025 
0025 
0025 
0025 
0030 
0030 
0037 
0037 
0037 
0048 
0046 
0040 
0040 
0044 
O04? 
0047 
0047 
0047 
0049 
0049 
0054 
00S, 
0053 
0053 
0054 
0056 
0058 
0058 
0068 
0060 
0062 
0062 
0064 
0064 
0064 
0064 
0064 
0064 


INTEGER INTTYPEsREALTYPE* ALFATYPEsCHARTYPE sBOOLTYPEsNILTYPEsTEXTTYPEa® 
INPUTFILE2OUTPUTFAILE*EMPTYSET#4% 
BOOLEAN INPUTDECL»OUTPUTDECL3%& 


x 

Reese TEMPORARY VARIABLES wee 
INTEGER TisT2sT3eT4eT5S5% 

y 4 


&eee OTHER VARIABLES **® 


ALPMA USER} % THE USER NUMBER FOUND ON THE USER CARD. 
% 
INTEGER CURLEVEL? % GURRENT PROCEQURE LEVEL, 
TOPLEVEL» % TOP LEVEL IN DISPLAY VECTOR. 
NUMBEGINS» % NUMBER OF “BEGIN'S IN THE PROGRAM, 
NUMCASES» % NUMBER QF CASE@STATEMENTS IN PROGRAM, 
NUMREPS» % NUMBER OF REPEAT@STATEMENTS IN PROGRAM, 
NUMTEMPS» % NUMBER OF TEMPORARY VARIABLES IN USEs 
CYRFUNC» % INDEX OF FUNCTION CURRENTLY COMPILED, 
CURSY>» ® LAST SYMBOL READ BY SCANNER, 
CURTYPE>» % TYPE OF ENTITY LAST COMPILED, 
CURMODE? % CURRENT EXPRESSION MODE. 
LASTREC % LAST RECORD TABLE DEFINED, 


% 


LABEL ENDOPINPUTS% 
% 


FORMAT NOERRORS 


ERR@RS 
ALIST 

NOAL IST 
LASTLINE 
TERMMESS 


CMNG ERRORS DETECTED s")5% 


C15" ERRORS DETECTED" )o% 
("S$ SET LIST SINGLE") 9% 
(MS RESET LIST" Ix 


Cw3 TERMINATES END OF PASCAL PROGRAMs") 5% 


cNewee ENDPOFSINPUT, COMPILATION TERMINATED ,")34 


MONITOR EXPOVResREALOVERFLOWSS 


% 


%eee SCANNER SYMBOLS ### 


DEFINE IDENTIFIERZL#s INTCONST=2#,> REALCONSTS3#s ALFACONST#480% 
CHARCONST35#» NOTSY=64>s ASTERISK37#>5 SLASHEBHs% 
ANDSY=9#>» DIVSY=104%>» MODSY211#>» PLUS#12#0% 
MINUS=13#> ORSy=i4a> LSSSYs15#,» LEQSYS16% 9% 
GEQSYs47#» GTRSY= 16%» NEQSY249#» EQLSY#2082% 
INSY# 218s LPAR=22#? RPAR®23#> LBRACKETS24# 0% 
RBRACKET=25#s OOYBLEDOT=26%> COMMAS27#» SEMICOLONS2 885% 
DQT=29#>» ARROWS 308» COLONS314> ASSIGNSY23240% 
BEGINSY®3340  ENDSY=34#, IF SY#35#> THENSY 36 #0% 
ELSESY#37#>» CASESY336#>s OFSY=39#s REPEATSY S40 #2% 
UNTILSY=418> WHILESY@42#, DOSY#43#, FORSY®4Q8 5% 
TOSY2 458s DOWNTOSYS46%» GOTOSYS47#, NILSYS4G#>% 
TYPES ys49%, ARRAYSys50#,  RECORDSy#5i#, FILESys52#s% 
SETSYs53#) CONSTSY*54#>» VARSYS55#> LABELSYs56#5% 
FUNCSY=S7#» PROCSY*56#» WITHSY®598> PROGRAMSY*60#93% 
PACKEDSY@61#3% 

x 


OEPINE INITIAL wO#, MIDOLES1#» TERMINAL @283% | 
DEFINE NUMBERZ0# BITPATTERN# 1 #54 


00163 
00164 
00165 
00166 
00167 
00168 
00169 
00170 
00173 
00172 
00373 
00474 
00175 
00476 
00177 
00178 
90179 
00180 
00181 
00182 
00183 
00184 
00185 
00186 
00187 
START OF SEGMENT 
00186 
00189 
00190 
00191 
00192 


3.18 46 LONG 


00193 
00194 
00195 
00196 
00197 
00198 
00199 
00200 
00201 
00202 
00203 
00204 
00205 
00206 
00207 
00208 
00209 
00210 
co2ii 
oo2t2 


O0213_ 


00214 
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Q064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
Q064 
Q064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
0064 
teeth hik 
0064 
0064 
0064 
0064 
0064 
NEXT SEG 
0064 
0066 
0066 
0066 
0066 
0066 
0064 
0066 
0066 
0066 
0066 
0066— 
0066 
0066 
— 0066 
0066 
0066 
0066 | 
0066 
0066 
0066 — 
0066 


e 


i 
a 


e q 

@ RERTAVELAARULALALL AAS RAL LLL ALL AULT SATALA ASL REALL LALAUAUEARALAARRARLALELIVALTLTLLS 00216 T 0066 qd 
: 00217 T 0066 
% % 00218 7 0066 

® x % 00219 T 006% q 
x PART 2% COMPILER UTILITY ROUTINES» % 00220 T 0066 
x Mant BHF ODF SA nenna wy x 00221 T 0066 

% % 00222 T 0066 @ 
% * 00223 T 0066 
x % 00224 T 0066 

® STESSESTSLSLISSSESLISSSLSSSOSSSESSSESSSESTS SETI TSESELELTSELE ELE LELES ESE 00225 T 0066 q 
a | | 00226 T 0066 
% 00227 T 0066 

rd] PROCEDURE INSYMBOL3 FORWARD3% 00228 T 0066 @ 
PROCEOURE WRITEALGOLS FORWARDS% 00229 T 0069 
PROCEDURE NEWXREF CNAME ysNAME 2 TABLES DECL 3% 00230 T 0069 

e VALUE NAMEL* NAME2* TABLE» DECL33 00231 T 0069 @ 
REAL NAME1s NAME23% 00232 T 0069 
INTEGER TABLE3® 00233 T 0069 

& BOOLEAN DECL3% 00234 T 0069 e 
FORWARD3% _ 00235 T 0069 
% 00236 T 0069 

@ DEFINE NDIGITS(N) 8% 00237 T 0069 @ 
IF NS 9 THEN 1 ELSES 00238 T 0069 
IF NS99 THEN 2 ELSE 3 DIGITS#3% 00239 T 0069 

@ % 00240 T 0069 e 
DEFINE HEADINGs% 00241 T 0069 
BEGIN COMMENT «a PRINTS A HEADING ON TOP OF A NEW PAGEe 3% 00242 T 0069 

@ PAGECNTS=PAGECNT #133 00243 T 0069 @ 
REPLace POINTER(HEADTEXTC#]2*85 BY PAGECNT FOR NOIGITSCPAGECNT)&% 00244 T 0069 
WRITECLINESELPAGEJ)3% 00245 t 0069 

@ WRITECLINESCOBLJ o14*HEADTEXT(#) 3% 00246 T 0069 @ 
LINECNT3 #232 00247 T 0069 
END OF HEADING#3% 00248 T 0069 

e % 00249 T 0069 @ 
x | 00250 T 006¢ 
DEFINE PRINTLINE® awe PRINTS a SOURCE CODE LINEe 00251 T 0069 

@ BEGINS 00252 T 0069 e 
REPLACE LINEPNT™8 BY CARDCNT FOR 5 pIGITS#s 00253 T 0069 
IF LINECNT2LINESPERPAGE THEN HEADINGS® 00254 T 0069 

@ IF RESWORDOPTION THENS 00255 T 0069 @ 
BEGINS > 00256 T 0069 
WRITECLINESCNOJo44eXLINEC#ID3% 00257 T 0069 

@ WRITECLINESCNUJ*LI2XLINEC WI 3% 00258 T 0069 @ 
ENDS¥ 00259 T 0069 
WRITECLINES#L7eL INE #]) 5% 00260 T 0069 

e LINECNT#MLEINECNT#1 53 00261 7 0069 @ 
END OF PRINTLINE##® 0 0” | 00262 T 0069 
% 00263 T 0069 

@ % 00264 T 0069 @ 
DEFINE NEWGARD= = = .  %e** READS A NEW SQURCE CODE CARDe 00265 T 0069 
BEGIN2 00266 T 0069 

e IF LISTOPTION THEN PRINTLINE?S 00267 T 0069 @ 
IF ERRINX>0 THEN PRINTERRORSS2 | _ 00266 T 0069 
READCCARDs 10+ ICARDC#)) CENDOFINPUTI5% 00269 T 0069 

@ CARDPNTt=POINTERCICARDL#1)3% vo270 T 0069 @ 

REPLACE LINEPNT. BY CARDPNT FOR 10 WORDS» " " FOR 6 WORDSSS _ 00271 T 0069 at 

REPLACE XLINEPNT BY * " FOR 10 WORDS) 00272 T 0069 

Sd e 

@ 2 


CHARCNTS8CARDLENGTHs% 00273 
MARGINGNT$=s853% 00274 
CARDCNT&*CaROCNT+133% 00275 
END#3% 00276 
x Q0277 
% 00278 
DEFINE GENCT#NsSTART)& Ruee GENERATE A TEXT "Ts CONSISTING OF 00279 
BEGIN . Sete NN LETTERS» STARTING AT “START, 00280 
IF ALGOLCNT<N THEN WRITEALGOL3% 00281 
TEXTLCOJSST3% 00282 
REPLACE ALGOLPNTSALGOLPNT BY TEXTPNTO*START FOR N3S% 00283 
ALGOLCNT# saLGOLCNT=#N3% 00284 

END &3% 00285 
% 00286 
% 00287 
DEFINE GENIDCL,NUM»NDIG)2 Z*4e GENERATE AN XALGOL IDENTIFIER, 00288 
BEGINS 00289 
IF ALGOLCNTSNOIG THEN WRITEALGOL3S 00290 
CHLOJtaL3% 00294 
REPLACE ALGOLPNTSALGOLPNT BY CHARPNT FOR 1, NUM FOR NOIG DIGITSs, 00292 
ALGOLCNTS AL GOLCNT#NDIG@43% 00293 
END#3% 00294 
% 00295 
% 00296 
INTEGER NABSsNSIZES% 00297 
x 00298 
DEFINE GENINT(N) @% 00299 
BEGENS 00300 
NABStszABS(N)S IF N<O THEN GENC M5 457)5% 00304 
NSIZEsaIF NABSS 9 THEN 4 ELSES 00302 

IF naBSs 999 THEN 3 ELSE% 00303 

IF NABSS 99999 THEN 5 ELSEX 00304 

IF NABSS99999999 THEN 8 ELSE 123% 00305 

IF ALGOLCNY<NSIZE THEN WRITEALGOLSS 00306 

IF NSIZE*12 THEN 00307 
REPLACE ALGOLPNTSALGOLPNT By CNABS DIV 1000000) FOR 6 DIGITS x 00308 
ENTIER(NABS MOD 1000000) FOR 6 DIGITS ELSES 00309 

REPLACE ALGOLPNTSALGOLPNT BY NABS FOR NSIZE DIGITS3% 00310 
ALGOLCNTS=ALGOLCNT@=NSIZE3% 00311 

END OF GENINT#3% 00312 
% 00313 
% 00314 
PROCEDURE GENREAL(X)3% 00315 
VALUE X3 REAL x3% 00316 
BEGINS 00317 
REAL ABSX3% 00318 

tt naa START OF SEGMENT 
INTEGER POWERS VisV23% 00319 
00320 

IF Xef4685]8Q THENS 00321 
BEGINS 00322 
IF ALGOLCNy<9 THEN WRITEALGOLS% 00323 
TEXTCOISSX3% . 00324 
REPLACE ALGOLPNTSALGOLPNT BY ""™, TEXTPNT FOR 7, nengy 00325 
ALGOLCNTS#ALGOLCNT#=93% 00326 

END ELSE 00327 
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0069 
0069 
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0069 
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0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
0069 
Q069 
006§ 
0069 
0069 
0069 
0069 
0069 
aeaotkey 
0000 
0000 
0000 
000; 
0001 
0003 
0004 
0013 
0015 


ta% a 


00000322 


BEGIN? 
IF ALGOLCNT<2e@ THEN WRITEALGOLA 
IF X<O THEN GENC™("%2296)3% 


ABSX$3ABS(X)3% 
IF ABSX>0O THEN’ 
BEGIN% 
WHILE ABSX21@7 DQ BEGIN ABSX!#ABSX/103 POWERS*POWERS1 ENDS 


WHILE ABSX<1@6 DO BEGIN ABSX#=ABSXX10; POWERt#POWER@1 END 3% 


VAitBENTIERCABSX)3% 

V2IsENTIERC CABSX#V1)x1000000)3% 

REPLACE ALGOLPNTSALGOLPNT BY Vi FOR 7 DIGITS» "a%o% 
V2 FOR 6 DIGITS» "eO"5% 

ALGOLCNT:#ALGOLCNT*1533% 

IF POWER<O THEN GENC"#",157)5% 


POWERS #AgS(POWER)s% 
REPLACE ALGOLPNTPALGOLPNT bY POWER FOR 2 DIGITS3s% 
ALGOLCNTs=ALGOLCNT™23% 

END ELSE GENC"O%+157)5% 


IF x<QO THEN GENC™)"9157)3% 
END3% 
END OF GENREAL3% 


% 
% 
INTEGER TYPEINDEX3% 
y | 


DEFINE NEWTYPESS 

BEGIN 
IF NUMTYPES2MAXTYPES THEN BEGIN ERROR (4S)sNUMTYPESS@MAXTYPES*20 ENDS 
TYPEINDEXSeNUMTYPESS=NUMTYPES 445% 

END #32 

y 4 


% 
PROCEQURE WRITeALGOLs 3*** WRITES 4 COMPLETED XaLGOL caRo 10 


BEGIN Zeee THE FILEs 
REPLACE PO;NTERCALGOLCARD(9)) BY CAROCNT FOR 8 DjgITSss% 


WRITE CPASCALGOL»10eALGOLCAROC#J)52% 
IF DUMPOPTION THEN WRITECLINESs LOsALGOLCARD( 423% 
ALGOLPNTS=POINTERCALGOLCARD(C*])23 AL GOLCNT!##713% 
REPLACE ALGOLPNT BY " " FOR 9 WORDS3% 

END OF WRITEALGOL3% 


00328 
00329 
00330 
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00332 
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00340 
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00345 
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4444 
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00349 
00350 
00351 
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00359 
00360 
00361 
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00363 
00364 
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SS ... .. 


0015 

0015 

0017 
00000330 
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0028 

0029 
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00000334 

37 


00000335 

0043 

0044 

0047 

0055 

0061 

00Q06a 
00000341 

00738 

0074 

0078 

0079 
00000333 
00000345 

00914 
00000346 

0104 
00000328 

0101 
00000317 


NEXT SEG r3 
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0069 
0075 
0079 
0084 
0086 
0090 
00000361 


% 
y 4 
DEFINE MARGINCLETTERs NUM) 8% 
BEGIN CoMMENT we PLACES INFORMATION IN THE MARGINe 3% 
IF MAR@INCNTS138 THENS 
BEGIN TEXTCOJSSLETTERSS 
REPLACE LINEPNT*MARGINCNT 8Y TEXTPNT#5 FOR 204 
NUM FOR NOIGITSCNUM)3% 
MARGINCNT S&S SMARGINCNT +632 
END3% 
a OF MARGIN#34% 


% 
PROCEDURE SKIPCSYMBOL)3 %*** SKIP SYMBOLS TO RECOVER FROM ERRUR 
VALUE SYMBOL} INTEGER SYMBOL; &¥*** CONDITION, 
BEGIN? 

WHILE CURSYZSYMBOL AND SYMKINDCCURSYJ=MIDOLE DOs 

IF CURSYsRECORDSY THENS 

BEGIN ODO BEGIN INSYMBOLS% 

SKIPC99) 3% 
END UNTIL CURSYFSEMICQOLON AND CURSYACASESYS% 


END ELSE INSYMBOL3% 


END OF SKIPs% 


rg 


x 
PROCEDURE ERRORCERRNUM)S2% 
VALUE ERRNUMS INTEGER ERRNUM3% 
BEGIN COMMENT #** ARRANGE ERROR JNDICATORe 3% 
NUMERRS 8 8NUMERRS41 3% 
ERRCERRNUM)t=TRUE3% 
ERRINXSSMAXCERRINXs CARDLENGTH@2"CHARCNT )3% 
IF ERRINXS415 THENX 
BEGIN REPL ace POINTERCERRLINECLJ+¢ERRINX BY "xed 
—  ERRNUM FOR NOIGITSCERRNUM) 3% 
ERRINXSEERRINX¢C( ITF ERRNUMS 9 THEN 2 ELSEX 
IF ERRNUMS99 THEN 3 ELSE 4)3% 


END END OF ERROR#% 


. 
y | 
PROCEDURE PRINTERRORS3S4% 


BEGIN COMMENT wee PRINT ERROR INDICATORSe 3% 


IF NOT LISTOPTION THEN PRINTLINESS 


00368 
00369 
009370 
00371 
00372 
00373 
00374 
00375 
00376 
00377 
00378 
00379 
00380 
00381 
00382 
00383 
00384 
00385 
00386 
00387 
00388 


00389 


00390 


00391 
00392 
00393 
00394 
00395 
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00398 
00399 
00400 
00401 
00402 
00403 
00404 
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00406 
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00409 


ha oe Ha tt st tt a tt st 
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ee ee ee eee 


4444 4 


0098 


0129 
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0129 
0129 


0000038§ 
00000386 
00000383 


00000400 
00000398 


00000409 


00000409 


WRITECLINES#I7#ERRLINEC#) 23% 
LINECNTSaLINECNT 413% 
REPLACE POINTERCERRLINECII) BY * * FOR 16 WORDS3% 
ERRINX#803% 
END OF PRINTERRORS3J% 


% 
* 
DEFINE HASHCN) = (N)0635936) MOD MAXNAMES#3% 
% 


INTEGER THISLEVELsTHISTAB,THISINOEX;2 
ALPHA THISIDs TNAMEF% 
BOOLEAN FOUNDs£ 


% 
DEFINE SEARCHTaBCTAB)® Save SEARCH NAME TABLE “Tag” FOR THE 
BEGIN Ae*e TDENTIFIER JUST READe 
THISINDEXS FHASH(CURNAME1 23% 
TNAME SaNAMETABICTAB,THISINOEX]33% 
WHILE CIF TNAMESCURNAME, THEN NAMETAB2(TABs THIS INOEXJZCURNAME 2% 
ELSE TNAME40) DOx 
BEGIN 
THISINDEX#®1F THISINDEX®O0 THEN MAXNAMES ELSE THISINDEX"13% 
TNAME taNAMETABICTABs THISINDEXI3X 
END3%... ap 
FOUND? =TNAMESOS% 
IF XREFOPTION THENS 
IF FOUND. THEN. NEWXREF CCURNAMEL,CURNAME2sTAB,FALSE)S x 
ENO CF SEARCHTAB#E 32 


DEFINE SEARCHs 

BEGIN2 
THISLEVELSsTOPLEVEL 413% 
OC BEGINS. 


THISLEVELS = THI SLEVEL@13% 
THISTAg¢aIF THISLEVELSCURLEVEL THEN THISLEVELS 


ELSE DISPLAYCTHISLEVEL J eNAMETABSS 


Zw*e SEARCH ALL TABLES CURRENTLY IN USEs 


SEARCHTAB(THISTAB)3% 
END UNTIL FOUND OR THISLEVEL#033% 
THISIDssNAMETAB3CTHISTAGs THISINDEX] 5% 


END OF SEARCH 43% 


x 


DEFINE NEWNAMECNAMELsNAME2s TAB) 2% 
BEGIN Ree* ENTER A NEW NAME INTO THE NAME TABLE "TAB". 
THISINDE x! SHASHC NAME] 5% 
TNAME BENAMETABICTABsTHISINUEX]3% 
WHILECIF TNAMESNAMEL THEN NAMETAB2CTABs THISINDEX JANAMECY 
' i ‘: ELSE TNAMEZ0O) DO% 
BEGINS 
THISINDEXs#IF THISINDEX®Q THEN MAXNAMES ELSE THISINDEX"13% 
_ . TNAMES@NAMETABLETABs THISINDEXI 3% 
END3% 


00410 
00441 
O0412 
00413 
00414 


00415 
00416 
00417 
00418 
Oo419 
00420 
00421 
00422 
00423 
00424 
00425 
00426 
00427 
00428 
00429 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00436 
00439 
00440 
00444 
Q04ak2 
00443 
00444 
00445 
00446 
00447 


00448 


00449 


00450 
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SS 
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00000409 
0174 
0178 
0179 
0185 
0186 
00000408 


0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0146 
0186 
0186 
0186 
0186 
0186 
0186 
0386 


0286 


0186 . 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0166 
0186 
0186 
0186 
018% 
0186 
0186 
0186 
0186 
0186 


0186 


0186 
0186 
0166. 
0166 


BSS te 


IF TNAME#O THEN ERROR(2)3% 
NAMETABICTABsTHISINDEX JI m=NAMELS2 
NAMETAB2[TABs THISINDEX] S8NAMEQS% 
IF XREFOPTION THEN NEWXREF CNAME L*NAME2s TABs TRUE DFS 
on OF NEWNAME #3% 


x 

PROGEQURE INITYALIZES Seee INITIALIZATION *ee 

BEGIN Laeceeeeeeee weet akakanak 
INTEGER T1,T33% 


ALPHA A3% 
FILL S¥MKINDC#] WITH 28( MIDDLE)» TERMINAL? 4(MIDOLE)*INITIALs TERMINAL? 


INITIAL+MIDDLEs TERMINALS INITIAL sMIODLEs INITIAL» TERMINAL» INITIAL S% 
MIDOLEsINITIALs2CMIDDLE Ds INITIAL sMIDOLE INITIAL s4CMIDOLE ) 0% 


TCINITIAL) *MIDDLESS 
2 
FILL S¥MBOL[*) WITH 10(0)s02ARROW* 0s COLUNs GTRSY» GEQSY so PLUS» 9(0)9% 
DoTekBRACKET*# ANDSY*L PARSLSSSY*ARROWs 029(0) sO ASTERISKs mI NUSs% 
RPAR»sSEMICOLONSLEQSYs Qe SLASH» 960) »COMMAs Os NEQSY PEQL SY» RBRACKETs& 
OsDOUBLEDOT3% 
% . 
LINEPNT S=POINTERCLINEL1))3 
XLINEPNTSaPOINTERCXLINE (13) i 
REPLACE LINEPNT#8 BY & a> m, * # FOR 16 WORDS34% 
REPLACE XLINEPNT™8 BY * " FQR 11 WORDS} % 
REPLACE POINTERCERRLINE([*#)) BY “aane ", " © FOR 16 WORDS 
ALGOLPNTISPOINTERCALGOLCARD(*))5 ALGOLCNTs=713% 
REPLACE ALGOLPNT BY ™ " FOR 9 WORDS; 
CHARPNTS wPOINTERC CHE #)) 473% 
TEXTPNTSSPQINTERCTEXTC#J2 413 TEXTPNTOSSTEXTPNT@ 43% 
REPLACE TEXTPNT BY * * FOR 153% 
STRINGPNTSsPOINTERCSTRING(#J 3% 
REPLACE POINTERCHEADTEXTC#]) BY " * FOR 10 WORDSs "PAGE "5% 
REPLACK POINTERCHEADTEXTEC*#)) BY "PASCALC™s EDITIONs ")/B™5700"5% 
TEXTCOISSTIMECS)3% 
REPLACE POINTERCHEADTEXTLC*#))*45 BY TEXTPNT#3 FOR 29 "/%5% 
TEXTPNT+4 FOR 25 “/%s TEXTPNT4+5 FOR 25% 
TitaTIME(1)/36005% 
REPLACE PO;NTERCHEADTEXT(*#I)457 BY (TL DIV 60) FOR 2 O[GITSe "sex 
ENTIERCT, MOD 60) FOR 2 DIGITS#% 
HEADINGS% 
% 
Zee INITIALIZE INTRINSIC TYPESs CONSTANTS ETC, wee 
% 


INTTYPES8T 33343 Sauk "INTEGER" tee 
TUtENUMERICS Thi eSIZEt#13 Ti,STRUCTIROF% 

TYPETABY{C(1I9ST14 TYPETABSCLISS9MAXINTS TYPETAB3C1) SeMAXINTIS 
NEWNAMECMh7INTEGE"# 4*R90)S T3IGIDCLASS# aTYPES3% 


NAMETAB3CO,THISINDEX] $#T33% 


00461 T 0186 
00462 T 0186 
00463 T 0186 
00464 TF Q186 
00465 T 0186 
00466 T 0186 
00467 T Q188 
00468 T 0166 
00469 T 0186 
00470 T 0186 
START OF SEGMENT wteedtetes 5 
00471 T 0000 
00472 T 0000 
START OF SEGMENT weenttaten 6 
Ooa73 FT 0001 
00474 7 00014 
00475 T 0001 
6 IS 62 LONG» NEXT SEG 5 
00476 T Q004 
00477 T O00} 
START OF SEGMENT seeeebatee 7 
00478 T 003 
00479 T 0003 
00480 T 0003 
7 IS 65 LONGe NEXT SEG 3 
00481 T 0003 
00482 T 0003 
00483 T 0006 
00484 T 90009 
00485 T 0018 
00486 FT 0024 
00487 T 0033 
00488 T 0036 
Q0489 rT 00486 
00a90 T O048 
00491 T 0049 
00492 T 0053 
00493 T 0055 
00494 T 0064 
00495 rr OO7S5 
00496 T 0076 
00497 T 0087 
Q0498 T 00948 
00499 T 0100 
00500 T O114 
00501 T 0119 
00000501 
00502 T 0136 
00503 T 0136 
00504 T 013% 
90505 tr 0136 
00506 T 0138 
00507 T 0142 
00506 T 0146 
00000508 
00000508 
00509 T QO177 


REALTYPE sr aia2s Xeax "REAL" eae 
TLeFORMP=FLOATINGS TYPETABLL2)3=T13% 
NEWNAMEC™GQOREAL"2020)3 T3,LDCLASSS#TYPESS% 


NAMETAB3COsTHISINDEXI] 827334 
ALFATYPES3733333 

TL eFORMSBALFAS TYPETABIC3II=T15% 
NEWNAMECM4QOALFA%2000)3 TIeIDCLASS#*TYPESA2 


Zeek TALPAN wae 


NAMETAB3(Os THIS INDEX] 33T33% 

BOOL TYPES aT gi s43 Zee "BOOLEAN" «ee 
TyeFORMS@SYMBOLICS TYPETABALGI8eTys3 TYPETAB3C 4194 43% 
NEWNAMEC™7BOOLEA%®*N20)3 T3IeTOCLASSteTYPES3% 


NAMETAB3LO,THISINDEX]# 3735 

CHARTYPES BT 38s54 Zeee "CHAR wee 
TLeFORMteCHARS TyPETABIC5)]%2T33 TyPETAB3C5] 8 26355 
NEWNAME (CT AQOCHAR"2020)5 TZ,LOCLASS&STYPESS& 


NAMETAB3LOsTHISINDEX) 83733% 
TIseBOOLTYPEs TIAIOCLASS seCONST3 Rete WF AL SEN wae 
NEWNAMEC™SOFALSE"2#020)3 NAMETABILOsTHISINDEXIF4T35% 


T3eINFOS 313. ; Seew “TRUEN wee 
NEWNAME ("GQQTRUE"s020)5 NAMETABZ(OsTHISINDEX) 387 33% 


NUMTYPES 835 3% 
NILTYPEs2et3 Zeee TYPE OF "NIL wow 
EMPTYSET& #92; Reese TYPE OF () #08 


NEWNAMECTOMAXINT%2020)5 T3SsINTTYPES Seek MMAXINT" wae 


T3,IDCLASS#SCONSTS T3,INFOS*10243% 
NAMETAB3COsTHISINDEXI$8T33% 
NUMCONSTS3#15 CONSTTABL1) 8=MAXINTI& 


733203 TI, IOCLASSs:#PROC3 Zee PROCEDURES we* 
FOR ate"30Q00GET"» "Z000NEW%s "4OOPACK"s "4OOPAGE™» “3Z000PUT"+% 
*HOOREAD™,» "GREADLN |, "SORESET*,», "GUNPACK", "SOWRITE” 00% 
BEGINS 
NEWNAMECA2090)3 NAMETABICO,THISINDEX ) 2 3T33% 


ENDS% 
NEWNAMEC "7? OI SPOS%s"E%s0)3 NAMETAB3SCOsTHISINDEXI] 887332 


NEWNAME ("7REWRITZE%90)3 NAMETAB3LOsTHISINDEX] 32T35% 


00510 
00511 
00512 


00513 
00514 
00515 
00516 


00517 
00518 
QO0549 
00520 


00521 
00522 
00523 


00524 


00525 
00526 
0052? 


00528 
00529 


00530 
00531 
00532 
00533 


00534 
00535 
00536 
00537 
00538 
00539 
00540 
00541 
00542 


00543 
00544 


00545 


4+ “4+ + 44-414 4-444 444-4 4+ + 
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AAs aos HS 


0179 
0180 
0183 
00000512 
00000512 
0218 
0212 
0213 
0216 
00000516 
00000516 
0243 
0245 
0246 
0250 
00000520 
00000520 
Oe7P 
0279 
0280 
0284 
00000524 
00000524 
0311 
03135 
0315 
00000527 
00000527 
0342 
0344 
00000529 
00000529 
0371 
0372 
0373 
0374 
00000533 
00000533 
0400 
0403 
0405 
0407 
0407 
0410 
0420 
0430 
04306 
00000542 
00000542 
0468 | 
00000541 
0468 
00000544 
00000544 
495 
00000545 
00000545 


NEWNAMEC™7WRITEL"S9N%20)3 NAMETABICO*THISINDEX) 8=T 


T3,IDCLASS22FUNCS ewe FUNCTIONS 

FOR Ats"3000ABS"s "OARCTAN'» "3000CHR", "3000COS", 
"4OOEOLN™» "3000EXP"» "20000LN"s "30000DD"s 
"4OQSUCC’s "SORQUND™s “3000STN"» "3000SQR"» 
"SOTRUNC™» "6CONCAT™» "GOOTIME™s "4OODATE™> 
"4OQUSER"» "30000RD"% 

DO BEGINS 

NEWNAME(A»020)3 NAMETABICOsTHISINDEXI#5T 33% 


END3% 
NEWNAMEC"7ELAPSE"2"D%%0)3 NAMETABSLOsTHISINDEX) $87 


NEWNAMEC™7WEEKDA"™s"¥%s0)5 NAME TABICOsTHISINDE XI] % eT 


TEXTTYPESST3ISSNUMTYPESESNUMTYPES413 Xeew "TEXT we 
Ti ¢@ TEXTFILE2 TleSTRUCT 3% 13 TYPETABICTEXTTYPE 
TIeIDCLASS 8= TYPESS % 

NEWNAMEC*4OOTEXT'2020)3 NAMETAB3ZCO,THISINDEX)] t#T733 


T3ISTEXTTYPES 13, 10CLASStaVAR3 
TIsEXTERNALFILES S132 
NEWNAME("SQINPUT"¢020)3 INPUTFILES@THISINDEXSS 


Keee "INPUT! 


NAMETAB3LOs THISINDEX] 827 353% 
NEWNAMEC"6QUTPUT"2020)3 


NAMETAB3COsTHISINOEXI] 83733 WUTPUTFILES*®THISINDEXS% 
END OF INTEALIZEsS 


% 
% 
x 
Aaewe XREF ROUTINES *ee 


Seca veekke eek eathehe 


y | 

DEFINE XREFCARDSCISU17 180% 
XREFBLOCK(26910]83% 

REAL AQ,BOsALsBL»sLASTAOsLASTALS% 

INTEGER NL sLASTBLOCK sA2,AX3% - 

% 


33% 


eee 

"ZQ0Q0Q0E0F",% 
"HOOPRED"s% 
"BOOSQRT 2% 
"6IOTIME"s% 


33% 


33% 


* 
1 33 T13 % 


a 


* 


eee "OUTPUT" wae 


00546 


00547 


005486 
O0549 


00550 
00551 
0055e 
00553 
00554 
00555 


00556 
00557 


00558 


00559 
00560 
00561 
00562 
00563 


00564 
00565 
00566 


00567 
00568 


00569 
00570 


SS 


i 


44-4 


5 IS 797 LONG» 


00574 
00572 
00573 
00574 
00575 
00576 
00577 
00578 
00579 
00580 
00581 


oe ee ee ee a 


0522 
00000546 
00000846 

0549 

0549 

0551 

0564 

0574 

0581 

0594 

0594 

0595 
00000555 
00000555 

0643 
00000554 

0643 
00000557 
00000557 

0670 
00000558 
00000558 

0697 

O69F 

0699 

0703 

0708 
00000568 
00000563 

32 


0734 

0736 7 
00000566 
00000566 

0762 

0764 
00000568 
00000868 

0789 

0792 
00000469 


NEXT SEG rs 


0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 
0186 


PROGEDURE NEWXREF CNAME L*eNAMEQsTABLESDECL 3% 
VALUE NAMELsNAME@s TABLE »DECLIS 

REAL NAMEL*NAME 23% 

INTEGER TABLEs% 


BOOLEAN. DEGLSX...... 


BEGIN? 
NL &SNAME1 NAMELENGTHSS 
IF NL<? THEN NAMEL$ sORNAMELC4AL94196 FENAMELLC SS S6OXNL #4 UOXNL 3% 
ELSE NAMES aORNAME 20 I5STOXCNL@ 62718 OXCNL 96) 15% 
AXt=CARDCNTS AXeXREFBLOCKISBLOCKTABCTABLEI5% 


IF DECL THEN AX#SAX"1000000000003% 
WRITECXREFFILEs #»NAMELsNAME2? AX ) 5% 


END OF NEWXREF 3% 


% 
PROCEDURE XREFMAXCAI3s% 
ARRAY AlO]3% 


BEGINS 
AcOJtS"AZZZZZZ"F «= ALL IEB"ZZZZZZ"3_—-A 21 8399999999995% 


END OF XREPMAX3% 


% 


% 
BOOLEAN PROCEDYRE XREFCOMPARECA,B)3% 
ARRAY AsBLO]3% 


BEGINS 
AOtwealO); BOtsBCO}; ALtsaCli; B1tFBtii 3% 
XREF COMPARE 123% 


IF A0,¢35%361480 .¢35936) THEN AO,¢35%361<80,(35%36)] ELSES 
IF AtzB1. THEN AL<B1 ELSEX 
IF AO#BQ THEN AO,NAMELENGTH<BO,NAMELENGTH ELSES 
AC2] LEQ Bf2]3% 
END OF yREFCOMPARES% 


3 
PROCEDURE PRINTXREFCFINIS2#A)3% 
VALUE FINISS BOOLEAN FINIS#2% 
ARRAY ACO13% 
BEGIN? 
IF FINIS THENS | 
BEGINZ 
PH UTECE NEDR LE XCEreRNEE Tay 
_ CLOSECLINES 23% id 
CLOSECXREFFILEI3% 


00562 
00583 
00584 
00585 


00586 . 


00587 
00588 
00589 
00590 
00591 
00592 
00593 
00594 


00595 
00596 
00597 
00598 
00599 
00600 


(00601 


00602 
00603 
00604 
00605 
00606 
00607 
00608 
00609 
00610 
00611 
00612 


00613 
00614 
00615 
00616 
00617 
00618 
00619 
00620 
00624 
00622 
00623 


at a te ot 44 


+4 tt 


ee ee 


ee 


0186 
0186 
0186 
0186 
0186 
0186 
0186 
0188 
0198 
0202 
0204 
0206 
0218 
00000587 


0218 

O2la 

0218 

O2la 

0218 

Q222 
00000598 


0226 
0226 
0226 
0226 
0226 
0226 
0230 
0236 
0234 
0237 
0240 
0242 
00000605 


0245 
0245 
0245 
0245 
0245 
0248 
O24s 
0245 
0245 
0256 
0254 


ENDS 


ELSES 
BEGIN2 
AQteACO]S ALSMACLIS ABEMAL2I3% 
IF AQeLASTAO AND AlsLASTAL AND A2,XREFBLOCKSLASTBLOCK THENS 
BEGINS 
IF NUMXREF#45 THEN’ 
BEGINS 
WRITECLINESs L7*XREFLINEL#])3 LINECNTS@LINECNT +443 
IF LINECNT>LINESPERPAGE THEN HEADINGS% 


XREFPNT&sPOINTERCXREFLINEC*])3 NUMXREF E2032 
REPLACE XREFPNT BY * " FQR 17 WORDSS XREFPNTESXREFPNT+243% 
ENDS % 


REPLACE XREFPNT BY AZ XREFCARO FOR 3 DIGITSs% 
XREFPNTSSXREFPNT*73 9 NUMXREF §SNUMXREF +132 
END ELSES 


If a2<O THEN 

BEGIN? 
A24$#A241000000000008% 
WRITECLINES# 17+XREFLINEC*)24 LINECNTSSLINECNT+13 
IF LINECNTALINESPERPAGE THEN HEADING3% 


XREFPNTSSPOINTERCXREFLINEC*))3 NUMXREF pe Qs% 
REPLACE XREFPNT BY * " FOR 17 WORDS3% 


TEXTCOJSBAN SL I5936)3 LASTAQEBADFS 
RePLAce XREFPNT BY TEXTPNT+1 FOR AO ,NAMELENGTHS4 


TEXTCOJSBLASTALISAL3% 


REPLACE XREFPNT*17 BY AgeXREFCARD FOR 5 DIGITS#4& 
XREFPNTI®XREFPNT+243 LASTBLOCKS®A2eXREFBLOCKS4 
END3% 


END}% 
END OF PRINTXREFS% 


NTEGER TTllseTT2eF leh ests RT3% 


Be et Be Be DE 


DEFINE CHECKTYPES(LEFTTYPEsRIGHTTYPE )=% 
BEGINS 
IF LEFTTYPE>0 AND RIGHTTYPE>0 THENS 
IF LEFTTYPEZRIGHTTYPE THENS 
BEGINS 
LTSsLEFTTYPES RTteRIGHTTYPES% 
TTLS#TYPETABICLTI3 «©=—-TT2SSTYPETABACRTI3% 


00624 


00625 
00626 
00627 
00628 
00629 
00630 
00631 
00632 
00633 


00634 


006395 
00636 


00637 


00638 
00639 


00640 
00644 


00642 
00643 


00644 


00645 
00646 
00647 
00648 
00649 
00650 
00651 
00652 
00653 
00654 


006595 


—~ 


ee ee ee ee ee ee ee ee ee ee 


_~ 


00656 T 


00657 
00658 
00659 
00660 
00664 
00662 
00663 
00664 
00665 
00666 
00667 
00668 


Se ee 


0253 
00000620 
0253 
0253 
0254 
0257 
0260 
0260 
0264 
0262 
0267 
00000633 
0289 
0292 
0298 
00000634 
98 


0303 
0307 


00000629. 


0307 

0308 

0309 

0310 

0315 
00000644 

0334 

0340 

0344 

0346 

0352 

0353 

0355 


3 
000006414 


FitaTTieroRMs F28=TT2.FORMZS 

IF LEZREALTYPE OR F2FNUMERIC THEN? 

IFCFIAZSET AND LTZEMPTYSET)ORCFAASET AND RTZEMPTYSET )THENS 
IFCFASPOINTERS ANO LTENILTYPEJORCF2ePOINTERS AND KTANILTYPE) THEN 


BEGINS | 

IF FI=SET AND FesSET THEN? 

BEGIN2 
LT@aTTigSETTYPES RTtsTT2,SETTYPESS 
TTLEeTYPETABLCLTI3 TT2SaTYPETABICRTIS% 
Fite7TtTi,F ORM; F2t"TT2,FORMIS 

ENOs% 

IF FLSPOINTERS AND F2sPOQINTERS THENS 

BEGINS 


LTt=TTIePOINTTYPE; RT@*=aTTZ,POINTTYPE 3% 
TTASsTYPETABICL Ts TT2¢BTYPETABICRTII2 
RiteTT1, FORMS FessTT2,FORMI% 
ENDJ% 
WHILE F4SSUBTYPE 00 
BEGIN LTESTT1eMAINTYPES TTISSTYPETABICL TIS FIstSTTIeFORM ENDSS 
WHILE F25SUBTYPE 00% 
BEGIN RTSeTT2.MAINTYPES TT2tSTYPETABICRTIS F2teTT2eFORM ENDS% 
IF LT>o AND RT>O THENS 
IF LTART THENS 
IF FiZNUMERIC OR F2sNUMERIC THENS . 
IF FIACHAR OR F2FCHAR THEN ERROR(17)4% 
ENDs% 


ENDS% 
END OF CHECKTYPES&#34 
x 


% 
INTEGER FILENAME? 2% 
BOOLEAN LPARFOUNDs4 


% 
DEFINE FYLEPARAMCDEFAULTF ILE )aee** CHECKS THE FIRST PARAMETER TO SEE 
BEGIN Reve TF IT IS A FILE 
INSYMBOLS FILENAMES SCURTYPE S032 
LPARFQUNDSsCURSY3_PAR3% 
IF LPARFOUND THEN 
BEGIN% 
INSYMBOLS% 
If CURSYaIJOENTIFIER THENS 
BEGIN’ 
SEARCH3% 
IF FOUND THEN2 
BEGINS 
IF THISIDsIDCLASS=VAR THENS 
BEGIN’. . 
CURTYPESSTHISID,TYPES% 
IF TYPETABLCCURTYPE J) ¢FORM2FILES THEN® 
BEGIN’ 
FILENAMES SLOOOxTHISLEVEL+THISINDEXSS% 
INSYMBOL33 
END. END ENO ENDSS bee 
IF SYMKINDCCURSYJ®TERMINAL THEN ERROR(46)3% 


END3% 
IF FILENAME#Q THEN FILENAME S*DEFAULTFILEsS&% 
IF CFILENAMESINPUTFILE AND NOT IJNPUTDECL) OR 


00669 
00670 
006714 
00672 
00673 
00674 
00675 
00676 
00677 
00678 
00679 
00680 
00681 
00682 
00683 
00684 
00685 
00686 
00687 
00686 
00689 
00690 
00694 
00692 
00693 
00694 
00695 
00696 
00697 
00698 
00699 
00700 
00704 
00702 
00703 
00704 
00705 
00706 
00707 
00708 
00709 
00710 
O0711 
00712 
00713 
00714 
00735 
00716 
00717 
00718 
00719 
00720 
Q072} 
00722 
Q0723 
og7e4 
00725 


ea a at ats at At tt A Ht a tat A A ta A tt ot tt 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
Q375 
0375 
0375 
0375 
0375 
Q375 
0375 
0375 
Q375 
0378 
0375 
0375 
0378 
0375 
Q375 
0375 
0375 
0378 
Q375 
0375 
0375 
0375 
Q375 
0375 
0378 
0375 
Q3a75 
0375 
0373 
0379 
0375 
Q375 
0375 
0375 
0375 
0375 
0378 
037§ 
Q375 
0375 
0375 
0375 
0378 
0375 
03758 


CFILENAMESOUTPUTFILE AND NOT OUTPUTDECL) THEN ERROR(96)3% 
END OF FILEPARAM#3% 
x 


% 
INTEGER TFORMSS | 
BOOLEAN SIG@NED,NEGATIVES3 
% 
DEFINE CONSTANT(CVAL®CTYPE)® eee <CONSTANT>? wee 
BEGIN Levee eeeveeeerkeneae 
IF CURSYamM NUS OR CURSYSPLUS THEN’ 
BEGIN SIGNEDSSTRUES NEGATIVE tRCURSY@MINUSSS 
INSYMBOL3% 
END ELSE SIGNEDS*NEGATIVES=FALSES% 
IF CURSY®INTCONST THEN 
BEGIN CTYPESSINTTYPE3S 
CVALS@IF NEGATIVE THEN "CURVAL ELSE CURVALs% 
END ELSES. 
IF CURSY@CHARCONST THEN’ 
BEGIN IF SIGNED THEN ERROR(C29)3% 
CTYPES=®CHARTYPES CVALtSCURVALSS 
ENO ELSES 
IF CURSYSREALCONST THEN’ 
BEGIN €TYPESSREALTYPE 3S 
CVALsalF NEGATIVE THEN *=CURVAL ELSE CURVAL3% 
ENO ELSE% 
IF CURSYSALFACQNST THEN’ 
BEGIN IF SyGNEO THEN ERROR(29)3% 
IF CURLENGTH?7 THEN ERRORC41)3% 
CTYPE SBALFATYPES «CVALEBCURVALSS 
END ELSES 
IF CURSYS@IDENTIFIER THEN’ 
BEGINS 
SEARCHI% 
IF eee THEN’ 
BEGIN 
1F THiS tO TDOCLASS=CONST AND NOT BOOLEANCTHISIO,FURMAL) THEN’ 
BEGIN® 
IF TYPETABICTHISIOe TYPEJeFORMSALFA THEN 
BEGIN? 
CVALPBTHISIOeINFOSS 
IF CVAL>1023 THEN CVALPSCONSTTAB(CVAL*10231 5% 
CTYPESSTHISIO,TYPES% 
IF SIGNED THENS 
BEGINS. 
TFORME=TYPETABLCTHISID, TYPE], FORM3% 
IF TFORM¢ZNUMERIC AND TF ORMsF LOATING THEN ERRORC29) ELSE 
IF NEGATIVE THEN CVALS™eCVALsd 
ENDs% 
END ELSE BEGIN ERROR(48)3 CVALSSCTYPE320 ENDJA 
END ELSE BEGIN ERRORC32)5 CVALESCTYPES*0 ENDS% 
END ELSE BEGIN ERROR(1)$ CVALssCTYPEs"O ENDS 
END ELSE BEGIN ERROR(32)s CVALIRCTYPEt#O ENDIS 
INSYMBOLS% en 
END OF CONSTANT#S2. 


00726 
00727 
00728 
00729 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 
00738 
00739 
00740 
00741 
o0T4e 
00743 
00744 
00745 
00746 
00747 
00746 
00749 
00750 
00754 
00752 
00733 
00754 
00755 
00736 
oo7s7 
00758 
00759 
00760 
00763 
00762 
00763 
00764 
00765 
00766 
00767 
00768 
00769 
00770 
00774 
00772 
00773 
00774 
00775 
00776 
oO777 
00778 
00779 


ee tt a tt st tt A ts tt tt ee tt st tt tat a st 4 


0375 
Q375 
0375 
0375 


Q375 


0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
Qa7s 
0375 
0378 
0375 
0378 
Q375 
0375 
Q375 
0378 
0375 
0375 
037$ 
0375 
0375 
03798 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0975 
0375 
0375 
0375 
0375 
0378 


_ 0975. | 


0378 


RXLAAUAALEALELUELLLALABLE LALA LL ALR LALALALALRAEULERALL ELL LALA LALLARRAAAARAAAAE 
4 


% 

% % 
x * 
x PART 3% THE SCANNER, od) 
x ana ®an aan @ a 
% % 
x % 
x % 
XEXURRAESKULARRNDTEARAANSANEARANAA TENA ARARTLRAAAANATERSAALVANERATA AAT 
% INTERNAL INTERNAL SYMBOL 

x S¥MBOL NUMBER NAME KINO 

% 

x IDENTIFIER { IDENTIFIER MIOOLE 

% 122 2 INTCONST MIDDLE 

3 299. 3 REALCONST MIDOLE 

% "aBcD" 4 ALFACONST MIDDLE 

% wor 5 CHARCONST MIOOLE 

% NOT 6 NOTSY MIDOLE 

x * 7 ASTERISK MIQDOLE 

% / 8 SLASH MIDDLE 

% g AND 9 ANDSY MIDOLE 

% DIV 10 DIvSY MIDOLE 

% Mad ii MODSY MIDOLE 

4 + 12 PLUS MIDOLE 

x - 13 MINUS MIDOLE 

z OR 14 ORSY MIOOLE 

% <. LS$. 45 LSSSY MIDDLE 

% <s LEQ $ 16 LEQSy MIOOLE 

x >= GEQ 2 17 GEQSY MIDOLE 

% > GTR. 16 GTRSY MIODOLE 

% <> NEQ # 19 NEQSY MIODLE 

% % EQ. 20 EQisy MIDDLE 

| IN 21 INSY MIOODLE 

* ¢ 22 LP aR MIDOLE 

% ) 23 RPAR MIDDLE 

% 24 LBRACKET MIOOLE 

% } 25 RBRACKET MIOOLE 

% ea 26 DOUBLEOOT MIDOLE 

& , 27 COMMA MIOOLE 

x 3 28 SEMICOLON TERMINAL 

a : 29 DOT MIDOLE 

a * . @. 30 ARROW MIOOLE 

4 ’ 31 COLON MIOOLE 

4 ta 32 ASSIGNSY MIOOLE 

a BEGIN 33 BEGINSY INITIAL 

% ENO 34 ENDSY TERMINAL 

x IF 35 IFSY INITIAL 

z THEN 36 THENSY MIDDLE 

x ELSE 37 ELSESY TERMINAL 

% CASE 38 CASESY INITIAL 

% oF. 39° QFSY MIDDLE 

x REPEAT 40 REPEATSY INITIAL 

% UNTIL Al UNTILSY TERMINAL 

% WHILE 42 WHILESY INITIAL 

% DO 43 DOSY MIDOLE 


0078} 


00782. 


00783 
00784 
00785 
00786 
00787 
00788 
00789 
00790 
00794 
00792 
00793 
00794 
00795 
00796 
00797 


00798 


00799 
00800 
00801 
00802 
00803 
00804 
00805 
09806 
00807 
00808 
00609 
00810 
00811 
o0alz2 
00813 
00814 
00815 
00816 
00817 
00818 
00819 
00820 
00821 
00822 
00823 
00824 
00825 
00826 
00827 
00828 
00829 
00830 
00831 
00832 
00833 
00834 
00835 
00836 
00837 


tat a et tt st ts ts gd ot) gt ts ot at tat HH tt ss ot st A ot ta ot ta st st ti 


0375 
0375 
Q375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
O3a793 
0437s 
Q375 
Q375§ 
0375 
0375 
0375 


0375 


0375 
0373 
0375 
0378 
0375 
375 
0375 
0379 
Q375 
0375 
0378 
0373 
0375 
0375 
Q375 
0375 
0378 
0378 
0375 
0378 
0375 
0378 
0375 
0375 
0375 
0375 
0379 
0375 
0375 
0375 
0375 
0375 
0375 
0378 
0375 
0375 
0375 


LETTER( GE )*C17 6c AND Cg25)0R(33¢c AND C541 )0R(50s¢ 


ALFANUMCC)RCLETTER(C) OR CS9)#3% 


REAL CURVAL3% 

ALPHA CURNAME 1a CURNAME 20CoCX3% 
INTEGER CURLENGTHs LASTCHARPQS3% 
BOOLEAN FINIS3% 

% 


DEFINE NEXTCHARSS 
BEGIN COMMENT yee READ NEXT CHARACTERs «an 3% 
IF CHARCNT#O THEN C##BLANK ELSE 
BEGINS 
REPLACE CHARPNT By CARDPNTSCARDPNT FOR 13% 
CIECH[Q] CHARCNTSCHARCNT® 43% 
END END #3% 
x 


a 

% 

PROCEDURE INSYMBOL 3% 

BEGIN COMMENT «##* READS THE NEXT SYMBOL, **#*5% 
INTEGER SCALEsEXP3% 


BOOLEAN. NEGEXP2% 
LABEL STARTSOVERFLOWSS 


% 
START &% es 
IF CSBLANK THENS 


& FOR 44 FORSY 

* TO 45 TOSY 

% DOWNTO 46 DOWNTOSY 
x GOTO a? GOTOSY 
x NIL. 46 NILSY 

% TYPE 49 TYPESY 

x ARRAY 50 ARRAYSY 
% RECORD 54 RECORDSY 
% FILE 52 FILESY 

x SET 53 SETSY 

% CONST 34 CONSTSY 
< VAR 55 VARSY 

a LABEL 56 LABELSY 
x FUNCTION 57 FUNCSY 

% PROCEDURE 58 PROCSY 

x WITH 59 WITHSY 

x PROGRAM | 60 PROGRAMSY 
% PACKED 61 PACKEDSY 
% 

% 

DEFINE BLANK#4pgg¢5 EQUAL BO1#, QUOTES#O3#, DOLLARS424,% 


INITIAL 
MIDDLE 
MIOOLE 
INITIAL 
MIDOLE 
INITIAL 
MIDOLE 
MIDDLE 
MIDOLE 
MIDDLE 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
INITIAL 
MIDOLE 


AND Cs57 y¥0% 


BEGIN SCAN CARDPNTSCARDPNT FOR CHARCNTSCHARCNT WHILE 3” "3% 
IF CHARCNT#O THEN BEGIN NEWCARDS GO TO START ENDSS 


NEXTCHARS & 


00838 
00839 
00840 
00644 
00842 
00843 
00844 
00845 
00846 
00847 
00848 
00849 
00850 
008651 
00852 
00853 
00854 
00855 
00856 
00857 
00858 
00859 
00860 
00861 
00862 
00863 
00864 
00865 
00866 
00867 
00868 
00869 
00870 
00871 
0872 
00873 
00874 
00875 
00876 
00877 
00878 
00879 
START OF SEGMENT 
00880 
00881 
00862 
00883 
00884 
00885 
00886 


00887 


44449 Has eA A a tt A ta tat tt tt gt tt tt st st 


0375 
0375 
0378 
0375 
Q375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
Q37§8 
0375 
0375 
0375 
0375 
0375 
Q37 
037 
0375 
0375 
Q375 
Q375 
0375 
0375 
0375 
0378 
0378 
0375 
0375 
0375 
Q375 
0375 
0375 
0375 
Q375 
Q37§ 
0375 
0375 
0375 
ekewhiy 
0000 
0000 
0008 
0000 
0006 
0000 
0003 


0070 


tae 8 


00000886 
00000886 
00000884 
00000886 
00000886 


00000B8B? 


00000887 
END3% 00888 T 0078 
00000885 
IF LETTER(C) THENS 00889 T 0078 
BEGINS 00890 T 0083 
CURLENGTHt®13 CURNAMEL#*®C# CURNAME2#803% 00891 T 0084 
NEXTCHAR3SS% 00892 T 0086 
00000892 
00000892 
WHILE aLFANUM(C) aNO CURLENGTH<6 004 00893 T 094 
BEGIN CURNAME1 3 eC&CURNAME1L35829830)3% 00894 7 0102 
CURLENGTHE®CURLENGTH413 = NEXTCHARSS 00895 T 0104 
00000895 
00000898 
END3% 00896 T 0112 
00000894 
IF CURLENGTH36 THEN’ 00897 T 0113 
BEGINS 00898 T 0114 
WHILE ALFANUM(C) aN CURLENGTH<12 00% 00899 T O114 
BEGIN CURNAME2S sC&CURNAME2[( 358 29830)3% 00900 7 0123 
CURLENGTHISCURLENGTHO14 NEXTCHARS% 00901 T 0125 
00000901 
00000901 
END3% 00902 T 0133 
00000900 
WHILE AWFANUM(C) 00 NEXTCRARSS% 00903 T 0134 
00000903 
000009038 
END3% 00904 t 0150 
00000898 
CURNAME 1 eNAMELENGTH! sCURLENGTH3 00905 T 56 
CASE CURLENGTH OF% 00906 T 0152 
BEGIN 3% 00907 T 0152 
CURSYS®IOENTIFIERS% 00908 T 045@ 
CURSYS2IF CURNAME1="2Q000]F" THEN IFSY ELSE% 00909 T 0154 
IF CURNAME1="™2900000" THEN DOSY ELSES oog!o T 0156 
IF CURNAMEZ=S"2Q000TO" THEN TOSY ELSE% 00911 T 0158 
IF CURNAMELe"20000QR" THEN ORSY ELSEX 00912 7 0160 
IF CURNAME1="200000F" THEN OFSY ELSES 00913 T 0162 
IF CURNAME1Ls"20000[N" THEN INSy ELSE IDENTIFIER#s 00914 T 0164 
CURSYS"IF CURNAME;="3000END" THEN ENDSY ELSES 00915 T 04367 
IF CURNAMELa"3000F OR" THEN FORSY ELSES 00916 T 0169 
IF CURNAME42"3000DIV" THEN DIVSY ELSES 00917 T O174 
IF CURNAMEL#"”3000M0D" THEN MODSY ELSES 00918 T 0173 
IF CURNAMELs"3000NIL" THEN NILSY ELSES 00919 T O175 
IF CURNAME4s"3000AND" THEN ANDSY ELSES 00920 T O179 
IF CURNAMELs"3000NQT" THEN NOTSY ELSES Go921 T 0179 
IF CURNAME1S"3000VAR" THEN VARSY ELSE% 00922 T 0184 
IF CURNAME1 s"3000SET" THEN SETSY ELSES 00923 T 0183 
IF CURNAME4="3000LSS" THEN LSSSY ELSES 00924 T 0185 
IF CURNAMEJS"3000LEQ" THEN LEQSY ELSES 00925 T 0187 
IF CURNAME12"™3000GEQ" THEN GEQSY ELSES 00926 T 0189 
IF CURNAME1#"3000GTR" THEN GTRSY ELSES 00927 T O194 
IF CURNAME1s"3000NEQ" THEN NEQSY ELSES 00928 f 0193 
IF CURNAMELS"3000E0L" THEN EQLSY ELSE IDENTIFIERSS 00929 T 0195 
CURSYSIF CURNAMEL#*"4OOTHEN® THEN THENSY ELSES 00930 T 0198 
IF CURNAME{®"400ELSE" THEN ELSESY ELSE% 00931 T 0200 


IF CURNAMEL2"400OWITH" THEN WITHSY ELSE% 00932 T 0202 
IF CURNAMEL#"4QOCASE” THEN CASESY ELSE*% 00933 T Q204 
IF CURNAME1S"*400GOTO" THEN GOTOSY ELSES 00934 T 0206 
IF CURNAMEL®*400TYPE" THEN TYPESY ELSES 00935 T 0208 
IF CURNAMELS"4GQOFILE” THEN FILESY ELSE IDENTIFIERSS 00936 T 0210 
CURSYtSIF CURNAME1S"50BEGIN" THEN BEGINSY ELSE% 00937 T 0213 
IF CURNAMEL®”"SOWHILE” THEN WHILESY ELSES 00938 T 0218 
IF CURNAMELS"SOUNTIL™ THEN UNTILSY ELSEX 00939 T Q217 
IF CURNAME18"5QARRAY" THEN ARRAYSY ELSE 00940 T 0219 
IF CURNAMELs"SOCONST”® THEN CONSTSY ELSES 00941 T O221 
IF CURNAME ,e"SOLABEL” THEN LABELSY ELSE IDENTIFIERS 00942 T 0223 
CURSYS*IF CURNAMEL®"6REPEAT” THEN REPEATSY ELSES 00943 T O22? 
IF CURNAMEL=*®600WNTO" THEN DOWNTOSY ELSEX 00944 T O29 
IF CURNAMELS"6RECORD" THEN RECORDSY ELSEX 00945 T 0231 
IF CURNAMELS"6PACKED™ THEN PACKEDSY ELSE IDENTIFIERS’ 00946 + 0233 
CURSYtSIF CURNAMELS"7PROGRA"® AND CURNAMEQ2S"M" THEN PROGRAMSYS 00947 T 0236 
ELSE IDENTIFIERS 00948 T 0238 
CURSY3:5]F CURNAMEys"@FUNCTI™ AND CURNAME 2s"0N" THEN FUNCSY% 00949 T 0240 
ELSE IDENTIFIERS% 00950 T 0243 
CURSYHSIF CURNAMELS"9PROCED™ AND CURNAME 2e"URE" THEN PROCSYS 0095i T Oz244 
ELSE IDENTIFIERS% 00952 T O24Pr 
CURSYSSIDENTIFIERS % 10 CHARACTERS, 00953 T 0249 
CURSYS*]DENTIFIER; ® 11 CHARACTERS, 00954 T O250 
CURSYSSIDENTIFIERS % 12 CHARACTERSe 00955 7 0251 
ENO OF CASEs% 00956 T 0252 

00000907 


START OF SEGMENT etxteeaten 9 
9 1S 13 LONG» NEXT SEG 8 


IF RESwORDOPTION AND CURSYASIDENTIFIER THENS 00957 T O252 
BEGIN TitSCARDLENGTH@CHARCNT*CURLENGTH3S 00958 T 0253 
IF CHARCNTSQ THEN CAROPNTS@CARDPNT+1 ELSE TISSTim13% 00959 T 0255 
REPLACE XLINEPNT*T1 BY CARDPNT*(CURLENGTH41 9% 00960 T 0305 
FOR CURLENGTHs% 00961 fT 0310 
END3% 00962 T 0313 
000009586 
END OF LETTER ELSE 00963 T QO313 
00000890 
IF CS9 THEN’ . 00964 T 0313 
BEGIN’ 00965 T QO314 
CURVAL:#C3 CURSYS#INTCONSTSS 00966 T 0314 
NEXTCHARI% 00967 T Q316 . 
00000967 
00000967 
WHILE cS$9 0Q BEGIN CURVALS310xCURVAL*C3 NEXTCHAR ENDS 00968 T 0323 Ay a: 
00000968 
00000968 
; 00000968 
IF Ce"," THENS 00969 T QO335 
BEGINS 00970 T Q335 
NEXTCHARS% 00973 T 0336 
0000097] 
00000971 
IF C89 THEN’ 7 00972 T 0343 
BEGIN CURSYSS#REALCONSTS& 00973 T 0344 
DQ BEGIN CURVALS#LOxXCURVAL+Cs% 00974 T Q34§ 
SCALES#SCALE#413 NEXTCHARSS 00975 T 0347 ’ 
00000975 


Jae 


END UNTIL C>934% 


ENp ELSE IF C3"%." THEN C3864 % SPECIAL MARK FOR "5,4" 
| ELSE ERROR(4)33 
END3% 


IF Came” THENS 
BEGINS 
CURSYS*REALCONST$ NEXTCHAR3% 


IF Ca"+#" OR Cote" THEN BEGIN NEGEXPteCat"s NEXTCHAR ENDS 


IF CS9 THEN? 
BEGIN EXP18C3. NEXTCHAR3% 


WHILE CS9 90 BEGIN EXPS=LOXEXP4+Cs NEXTCHAR ENDFS 


IF NEGEXP THEN EXPE erEXP3% 
END ELSE ERRORC4)3% 


— SCALEM*SCALE+EXP 3% 
ENDs% 


IF CURSY#REALCONST THENS 

BEGIN 
REALQVERFLOW$ OVERFLOWS 
CURVAL SSCURVALX1Q*SCALESS 
REALOVERFLOW?=033 

END ELSE% 


IF CURVAL>MAXINT THEN 


BEGINS 
OVERFLOW? ERRORC14)3 CyRyALtsOs REAL OyERFLOW! 303% 
END3% 


END OF DIGIT ELSES 
IF C=QVOTES THEN% 


BEGINA. 0 . aS . 
CURSYs@ALFACONSTS CURLENGTHEtsQs NEXTCHARSS 


FINIStaFALSEs% 
DD BEGINS 
IF C#QUOTES THEN BEGIN NEXTCHARS FINIS!=C¥QU0TES END ELSES 


IF CHARCNT#O THEN BEGIN ERROR(6)3 FINIStaTRUE ENDS% 


00976 
00977 


009786 
00979 


00980 


0098) 
00982 


00983 


00984 
00985 


00986 


00987 
00968 


00989 
00990 


00991 


00992 
00993 


00994 
00995 
00996 


00997 


00998 
00999 


01000 
01004 
01002 


01003 
01004 


01005 
01006 
01007 


01008 


ee ee | 


4 Asst 


44-4 


4+ 


00000978 

00000974 
357 

00000978 


00000970 


00000982 
00000982 

0374 . 
00000983 
00000983 
00000983 

03862 

0382 
00000985 
00000985 

0394 
00000966 
00000986 
00000986 

0408 

0404 
00000985 

0406 

0407 
00000981 

0407 

0408 

0408 

0410 

0413 

Ouly 
00000992 

0414 

0415 

0416 

0418 
00000998 


00000965 


00001004 
00001004 


00001007 

00001007 

_ 00001007 
0444 


IF NOT FINTS THENS 

BEGIN 
REPLACE STRINGPNT*CURLENGTH BY CHARPNT FOR 13% 
CURLENGTHSSCURLENGTHO13% 
NEXTCHARS% 


END ENp UNTIL FINIS3% 


IF CURLENGTHSO THEN ERROR(4) ELSEX 
IF CURLENGTH#1 THENS 
BEGIN CURSYISCHARCONSTSS 
REPLACE CHARPNT BY STRINGPNT FOR 13 CURVALS8CH(OUS% 
ENO ELSE% 
IF CURLENGTHS7 THEN 
BEGIN TEXTCOJ3s" "5% 
REPLACE TEXTPNT BY STRINGPNT FOR CURLENGTH32 
CURVALS®TEXTCOI3% 
END3% 


END OF STRINGS ELSES 
BEGIN 
CURSY#mSYMBOL(C]3 NEXTCHARSS 


IF CURSY@COLON AND CHEQUAL THEN 
BEGIN CURSYS#ASSIGNSYS NEXTCHAR END ELSES 


IF CURSYspOT AND c2"," THENS 
BEGIN CURSY8sDQUBLEDOTS NEXTCHAR END ELSER 


IF CURSYSLSSSY AND C#EQUAL THEN’ 
BEGIN CURSYSSLEQSY$ NEXTCHAR END ELSES 


IF CURSYSLSSSY AND Ca™>" THENS 
BEGIN CURSYt#NEQSY3 NEXTCHAR END ELSEX 


IF CURSY=GTRSY ANO CBEQUAL THENS 
BEGIN CURSYtsGEQSY3 NEXTCHAR END ELSES 


IF CURSYSLPAR AND Ca"«" THENS 
BEGIN % wee COMMENT #3 
NEXTCHARS% 


01009 
01010 
010131 
01012 
01013 


01014 


01015 
01016 
01047 
01018 
01019 


01020 
01021 
01022 
01023 
01024 


01025 
01026 
Q1027 


01028 
01029 


01030 
01031 


01032 
01033 


01034 


01035 


01036 
01037 


01038 
01039 
01040 


+4 Se ee ee 4 4444-4 


4 


44+ 


00001008 
0444 
0444 
0445 
0458 
0451 

00001013 

00001013 
58 


00001010 
00001006 
459 


0464 

0462 

0464 

0467 
00001017 

0467 

0469 

0476 

0473 

QO4a74 
0000102) 

0474 
00001003 

0474 

0476 
00001027 
00001027 

0484 

04864 
00001029 
00001029 
00001029 

0495 

Q49o?7 
00001031 
00001031 
00001031 

0506 

0508 
00001033 
00001033 
00001033 

0517 

0319 
00001039 
00001035 
00001035 

0528 

0530 
00001037 
00001037 
00001037 

0539 

0544 

0541 


IF c#pOLlLarR 
DO BEGINS 
NEXTCHAR3 


IF CX#"L" 


IF CXa"R® 
IF Cxancn 
TF Cxa"O" 
IF Cxa"x* 
IF CX#"A% 


THEN ® pOLbLaR INDICATES COMPILER OPTIONS, 


Cx#aC3 NEXTCHARS 


THEN IF Cai THEN HEADING? 
ELSE LISTOPTIONssca%e" ELSES 


THEN RESWORDOPTIONS #Ca%e” ELSE 
THEN CHECKOPTIONS &Cs" +" ELSES 
THEN OUMPOPTIONEsCa"+" ELSE 
THEN XREFOPTIONs #Cate” ELSES 
THEN 


IF Ca"4+" THEN WRITECPASCALGOL*sALIST)& 


IF Cxa"yn 


ELSE WRITECPASCALGOL* NOALIST) ELSES 
THEN? 


BEGIN LASTCHARPOS %# CHARCNT * CARDLENGTH3% 


CARDLENGTH#=10xC 3% 
_NEXTCHARS CARDLENGTHt=cARDLENGTHSC24 


IF CARDLENGTHS9 QR CAROLENGTH>80 THEN’ 
BEGIN ERRORC14)3 CARDLENGTH82#729 ENDs2 


CHARCNT s@MAXCOPLASTCHARPOS*CARDLENG THe) 23% 


END3% 


NEXTCHARS& 


END UNTIL Cah pnax 


FINISSSFALSE3% 


DO BEGINS 


IF C#%e" THENS 
SCAN CARDPNTSCARDPNT FOR CHARCNTSCHARCNT UNTIL whenye 
IF CHARCNT3SQ THEN NEWCARD ELSES 


BEGIN NEXTCHARS3 


WHILE Ca"@#™ DO NEXTCHARSS 


FINIS3 #Ca%)"3% 
ENO ENO UNTIL FINIS#4 


NEXTCHARS% 


01041 
01042 
01043 


01044 


01045 
01046 
01047 
01048 
01049 
01050 
01051 
01052 


01033 
01054 


01055 
01056 


01057 
01058 


01059 
01060 


01061 


01062 
01063 
01064 
01065 


01066 
01067 


01068 


01069 


01070 
01071 


04072 


Se ee eee 44-4 


— ~—-4+ -44 


4qa4H4 44-4 «4 


00001040 
00001040 

0549 

0550 

0554 
0000104 
0000104 


00001043 
00001043 


00001048 


00001056 
00001056 


00001058 


00001054 


00001061 

00001061 
QO644 

0000104¢ 
3 


00001067 
00001067 
00001067 
00001067 
Q714 
00001066 
00001068 
0728 
00001069 
00001069 
0731 
0732 
00001068 
00001064 
0733 
00001072 


GO TQ START#& 
END OF COMMENTI& 


END3% 
ENO OF INSYMBOL3% 


8 


Is 


00001072 

01073 T Q740 

01074 T Q741 
00001039 

01075 T O74) 
00001026 

O1076 T O744 
00000878 
753 LONGs NEXT SEG 2 


~~. a 


&. 

* 

% 

ae PART 4$ EXPRESSION PARSER, 
% Pe Red etend kn deated tudantelakedalen 
a 

p | 

% 
SLVUUTLVRELMTALATATRAVALARAAARALA BATA AGATATATTATARLALASARALAARLARATAAILAL 
% 

x 


PROCEDURE EXPRESSIONS FORWAROs% 
PROGEQURE CONCAT3 FQRWARD 3% 
x 


ALPHA TEMPSYMS% 

REAL SXs% . 
INTEGER EXPRLEVELs TX33 
% 


DEFINE PUTTEXT¢TI=% 

BEGINS 
IF NUMSYMS=MAXSYMS THENS 
BEGIN ERROR(7123% 

NUMSYMS8313% 

ENO ELSE NUMSYMSSS=NUMSYMSo4 54% 
SYMTABLNUMSYMSJ 327538 

ra OF PUTTEXT #3% 


DEFINE PUTSYM(S)3%.. 
BEGINS 
TEMPSYM25(§ 2810418586) 54% 
— PUTTEXTCTEMPSYM) 3% 
END OF PUTSYM @3% 


% 

DEFINE PUTGONSTC VAL) 8% 

BEGIN2 
PUTTEXTC™2000000")5% 
PUTTEXTCVAL 24% 

END QF PUTCONST #3% 


DEFINE PUTOUMMY=4% 
BEGIN%X 
PUTTEXT(™3000000%) 3% 


END OF PUTOUMMY. #33. 


% 
DEFINE BUTIDCL»NUM»NUMDIG) a& 


BEGINS... 


TEXT[O] 8a" " & L £39585t6)3% 
REPLACE TEXTPNT*+2 BY NUM FOR NUMDIG DIGITS34 
_ PUTTEXTCTEXTCO]23% 
ae OF PUTIO#3% 
DEFINE wRITEEXPReS 
BEGINS 
FOR Tits1 sTEP 4 UNTIL NUMSYMS 00% 
BEGGING. Sop sehncmta 1 Cae | Mast aubae: fe ad 
SXteSYMTABCT1]3 TXtmSX,C4186352% 


RERALULAUALLAGN LAUR ARUAAAAAABAEK ARUBA AAAREK RUA ELAAAKAAAAKAATRARE ALANS 


a 
a 
a 
% 
% 
x 
a 
% 


01078 
01079 
01080 
01081 
01082 
01083 
01084 
01085 
01086 
01087 
01088 
01089 
01090 
01091 
01092 
01093 
01094 
01095 
01096 
01097 
01098 
04099 
01100 
01101 
01102 
01103 
01104 
01105 
04106 
011407 
01408 
01409 
01110 
O1i12 
Ollie 
011413 
01114 
01115 
01116 
Q11i7 
011184 
01119 
01120 
Qiiei 
01122 
01123 
01424 
01145 
01126 
01127 
01128 
01129 
04130 
01131 
01132 
01133 
01134 


HHHAN HHH a tH A HA A A Ht HE CH TT HT TA At tt tt at tt tt tt 


0375 
0375 
0375 
0375 
0375 
0378 
0375 
0375 
0375 
0375 
0378 
0378 
0375 
0375 
0375 
0375 
0378 
0375 
0375 
0375 
0373 
0375 
0375 
0373 
0375 
0375 
0375 
0375 
0975 
0375 
0374 
0375 
0373 
0375 
0373 
0375 
0375 
0375 
0375 
0378 
0375 
0375 
0375 
0375 
0375 
0375 
0373 
0375 
0375 
O37§ 
0375 
0375 
0373 
0375 
0375 
0378 
0375 


Fa ine 


IF TX#0 THEN GENCSX»7e2) ELSES 

IF TX#3 THEN ELSES 

IF 1X8} THEN GENCSXe197) ELSE 

BEGINS 

 ThsatTie}s —SXtsSYMTABCTAIGS . 
IF $XeC4496)]50 THEN GENINT(SX) ELSE GENREAL(SX)3% 

END END3% 
NUMSYMS$#03% 


ene OF WRITEEXPR#S% 


% 
DEFINE CHECKEXPR(LLIMsULIM) a& 
BEGINS 
PUTTEXTC"CHECK(™ 23% 
EXPRESSION3% 
PUTSYMC%s")5 PUTCONSTCLLIM)A® 
PUTSYM("9")3 PUTCONSTCULIM) 43 
PUTSYM(%s%)3 PUTCONST(CARDCNT 3% 
PUTSYM(™) "95% 
ne OF CHEGKEXPR#s4% 


% 

BOOLEAN SIMPLEVARIABLE sINSIDEBRACKETS3& 
INTEGER NUMPOINTERS#& 

% 


PROCEOURE VARIABLESS 
BEGIN? 
INTEGER STARTSYMsLLIMsULIMSS 


REAL Ts% 
BOOLEAN INBRACKET»s INRECORD3% 


LABEL ADDADDR#% 


STARTSYMS#NUMSYMS41 4% 
IF THISLEVeL>cURLEVEL THEN % VARIABLE IN FlELD LIST OF 
BEGIN % RECORD USED IN WITH*STATEMENT, 
TISDISPLAYCTHISLEVELJs% 
TAStTeFIRSTWITHSYMS =TS3BTeLASTWITHSYM3% 
FOR T3t"7T4 STEP 4 UNTIL T5 DO PUTTEXTCWITHTABLT3I)3% 


INRECORDs#TRUESS 
INBRACKE TS ®BOULEANCTeBRACKETSINWITH) 3% 
NUMPOINTERSESNUMPOINTERS*T pNUMPNTRSINWITHSS 
SIMPLEVARIABLES SF ALSES% 
CURTYPESsT,RECTYPES TteTYPETABLCCURTYPE] 3% 
GQ TO ADDADDRS& 

ENOs% 


IF THISLEVEL>1 AND THISLEVEL<SCURLEVEL THEN ERROR(5)3% 
CURTYPESSTHISTOeTYPES SIMPLEVARIABLES#TRUE3S3 
PUTIOC™V"s LOOOXTHISLEVEL#THISINDEXs5) 33% 


INSYMBOL3% 
IF CURSY®LBRACKET OR CURSYS0UT GR CURSYSARROW THENS 


04162 
START OF SEGMENT 
01163 
01164 
01165 
01166 
01167 
01168 
01169 
01170 
01171 
01172 


01173 
01174 
01175 
01176 
01177 
01178 
01179 


01180 
01161 
01182 


AA AD HH HHH RHA tt ts st ss ta ts te ss st Ht 


A+ AM 


01163 T 


01184 


0375 
Q375 
0375 
0375 
0375 
0375 
0375 
0375 
037§ 
0375 
0375 
0375 
0375 
0375 
0378 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0379 
0375 
0375 
0375 


Heke bekae 10 


0000 

0000 

0008 

0000 

0000 

0004 

0002 

0002 

0003 

0006 
0000117¢ 
Oo001172 

0015 

0016 

0017 

0019 

0019 

0029 

0029 
00001169 

0022 

0025 

O02? 
000011828 
00001182 
00001168 

0043 

0044 


Ld] @ @ @ @ e @ ] @ e 2 @ e @ td] & & a & a & rt 


BEGINZ 
SIMPLEVARIABLE S@FALSEJ% 
DO BEGIN: 
IF CURSY*LBRACKET THEN 
BEGIN& 
IF NOTCINBRACKET OR INRECQRD) THEN? 
BEGIN PUTSYM("(")3 INBRACKET#aTRUE ENDS 


O00 BEGINS 
Tis TYPETABICCURTYPEJ 4% 
LLIMPSTYPETAB2(CURTYPEJs ULIMISTYPETABSLCURTYPEI3% 
IF TeFORMZARRAYS THEN ERROR(12)3% 
IF ,NRECORD THEN PUTTEXT(* CN )5R 


INSYMBOL 3% 
IF CHECKOPTION THEN CRECKEXPRCLLIM*SULIM) ELSE EXPRESSIONS 


CHECKTYPES (Te INXTYPE *CURTYPE)3% 


01185 
01186 
01187 
01188 
01189 
01190 
OL191 


01192 
01193 
01194 
01195 
01196 


01197 
01198 


01199 


4+~aosst 


444-44 


44 


T 


Q047 
QO4? 
00448 
0049 
0049 
0050 
005, 
00001191 
00001191 
QO0001191 
Ooog1191 
0060 
0060 
0064 
0063 
006§ 
00001196 
00001196 
79 


0072 
00001198 
00081198 
00001196 
00001198 
00001196 
00001198 
00001198 
00081198 
00081198 
00001198 
00001198 
00001198 
00001198 
00081198 
00001198 
00001198 
00001198 
00001198 
00001198 
000€11986 
00001196 
00061198 
00001198 
00001198 
00001198 
00061198 
00001196 
000061198 
00001198 
00001198 

0151 
00001199 
00001199 
00001199 
O000119% 
00001199 
00001199 


CURTYPES#TARRTYPESS 
IF INRECORD THENS 


BEGIN’ 
IF LLIM<O THEN BEGIN PUTSYMC%O")3 PUTCONSTC#LLIM) END ELSE 


IF LLIM>O THEN BEGIN PUTSYMC(%=")3 PUTCONSTC LLIM) ENDS 


PUTSYMC™)")3% 


IF TYPETABIECURTYPE).SIZE>1 THENS | 
BEGIN PUTSYM("x")3 PUTCONSTCTYPETABLECURTYPEJeSIZE) ENDS% 


END ELSE IF TYPETABILCURTYPEJ,STRUCT>0 THEN PUTSYM("2")54% 


END UNTIL CURSY*COMMA;% 


IF CURSYARBRACKET THEN’ 
BEGIN ERROR(5923 SKIPCRBRACKET)3& 

IF CURSY#RBRACKET THEN NSYMBOLS% 
END ELSE INSYMBOLS% 


END OF BRACKETS ELSES 
IF CURSY3D0T THEN% 
BEGINS 


IF NOTCINBRACKET QR JNRECORD) THEN’ 
BEGIN PUTSYMC™(C™)3 INBRACKETS TRUE ENDS 


01200 
01201 
01202 
01203 


01204 


01205 


01206 
01207 


01208 


01209 


01210 
Ot211 
Ol2ie 
01213 


01214 


Olas 
01216 
Q1217 
01218 


4-444 


+41 


44-444 


| 


00001199 
0212 
0213 
0213 
O214 
00001203 
00001208 
00001203 
00001208 
00001203 
00001208 
00001203 
000012038 
00001203 
0235 
00001204 
00001208 
00001204 
00001204 
00001204 
00001204 
00001204 
00001204 
00001204 
0257 
00001208 
00001208 
00001208 
65 


0266 
00001207 
00001207 
00001207 
00001207 
00001207 
00061207 
00001207 
00001207 
00001207 


a8 
00001202 
00001208 
00001208 
00001208 

0298 
00001192 

0299 

0300 

0302 

0304 


Oocei211- 
or 
00001189 | 


0305 
0306 
0306 
0307 


TESTYPETABL([CURTYPE 133 
IF T,FORMFRECORD THEN ERROR(12)3% 
INSYMBOLS% 
IF CURSY®IDENTIFIER THEN 
BEGINS 
SEARCHTAB(T,RECTAB) 3% 


IF FOUND THEN’ 
BEGIN? | a3 
THISIDt3NAMETABSCT eRECTAB>THISINDEX) 3% 
ADOADDR: PUTSYMC™4")3% 


PUTCONSTCTHISIDeINFO)S CURTYPESSTHISID, TYPES 


ENn ELSE BEGIN ERROR(1)5 CURTYPESEO ENDSS 
END ELSE BEGIN ERROR(9)3 CURTYPE#s80 END3x 


INRECORDtSTRUE FS 
INSYMBOL 34 
END OF DOT ELSE 


BEGIN % CURSYSARROW 
TeSTYPETABICCURTYPE 3% 
IF T,FORMSFILES THEN? 
BEGINS 
CURTYPES#T FILETYPES% 
IF TYPETABILCURTYPE) ®STRUCT&®O THEN PUTTEXT(™ CO]" 23% 


END ELSES | 


If T,FORM@TEXTFILE THENS 
BEGINS netics Deen Bahl. _ tk 
SYMTABPNUMSYMSJ ¢@SYMTAB(NUMSYMS] & "1" (35%526]5% 
PUTSYMC™.")$ PUTTEXTC™LASTCH™ 3% 


CURTYPES®CHARTYPE3S% 
END ELSES b. uee 


01219 
01220 
O122) 
C1222 
01223 
01224 


O1225 


Q1226 
01227 


01228 


01229 


01230 


01231 


01232 
01233 
01234 


01235 
01236 
01237 
01238 
01239 
Ql240 


0124) 
O1242 
01243 


01244 
01245 


01246 


ee 


+444 


a ee 


| 


01247 T 


00001218 
00001218 
00061218 
00001218 
0316 
0317 
0320 
0326 
0321 
0321 
00081224 
00001224 
0348 
0342 
0342 
0345 


00001228. 


00001228 
00001228 
0352—i«*” 
00001229 
00001229 
00001229 
00001229 
00001229 
0367 a 
00001226 
00001230 
369 


00001223 
00001231 
0371 
0372 
0370 
00001216 
372 
0373 
0374 
0378 
0375 
0377 
00001240 
00061240 
4 


00081238 
384 


0388. 
0388 
0394 
00061245 
00001245 
00081245 
90001245 
00001245 
0404 
Q405— 


00001243 


Bec 


IF T,FORM*POINTERS THEN’ 
BEGINS 
IF INBRACKET THEN PUTSYMC(™]#)3% 


INBRACKET##F ALSE3% 

IF NUMSYMS#2SMAXSYMS THEN 

BEGINS 
FOR TAt3NUMSYMS STEP 1 UNTIL STARTSYM DOS 
SYMTAGCTI+2]¢=SYMTABCTIIIX 
SYMTABLSTARTSYMJt2"” MEM("3% 
SYMTABLSTARTSYMoL] fa” (TSa"32 


NUMSYMSSSNUMSYMS4#24 NUMPOINTERSS#NUMPOINTERS 413% 


INRECORDSSTRUE SS 
END ELSE ERROR(63)34% 


CURTYPE SST POINTTYPESS 
END ELSE BEGIN ERRORCL2)3 CURTYPE%30 ENDS% 


INSYMBOL3% 
ENB OF ARROWS 


EnD UNTIL CURSYAZLBRACKET AND CURSYZ0D0T AND CURSYZARROWIS 
IF TYPETABICCURTYPE] «STRUCT=0 THENS 


BEGIN& 
IF INBRACKET THEN PUTSYMO")")3% 


WHILE NUMPOINTERS>O DOS 
BEGIN PUTTEXTC"=1)pIV")3 PUTTEXTC™ 10220")83% 


PUTTEXTC™ T MOD")S PUTTEXTC™ 1022)]")34 


NUMPOINTERS § enNUMPQINTERS@43% 
END3% 


ENDs% 
END3% 
INSIDEBRACKETS##INBRACKET32 


CURMODE S$ sNUMBERS4 
END OF VARIABLEs3— 


10 1S 


01248 
01249 
01250 


a4 


01251 
Q1252 
01253 
01254 
01255 
01256 
01257 
01258 
01259 
01260 


01261 
01262 


“a te ts st 


01263 
01264 


01265 
01266 


01267 
01268 


a a ee a 


01269 
01270 


44 


01271 T 


O12e7e T 
01273 T 
Ql2a74a 7 
Ql275 7 
01276 


01277 
01278 


44-3 


490 LONG» 


0403 
0408 
0408 
00001250 
00001250 
00001250 
Oar 
O41? 
0419 
0419 
0424 
0425 
Q426 
0428 
0430 
0434 
00001253 
0434 
0436 
00001249 
00001262 
38 


00001235 
38 
00001187 


3 
00061268 


00001268 
00001268 


00001270 
00001270 
00061270 
00001270 
0466 
oo00el271 
00001274 
000e1271 
00001271 


‘00001270 
0484 

0000126f 
0484 

00001188 
4 


00001161 


NEXT SEG 2 


% 
% 


PROCEDURE PASSPARAMS3% 
BEGIN 


INTEGER NPARS»PARAMsPTYPE sP oF IRSTSYM3% 


BOOLEAN FORMALPROCsCHECK3S2 
LABEL EXITs4% 


PUTIDC™V"s 1 O00XTHISLEVEL+THISINDEX25 13% 


PISTHISIDeINFOSS 
FORMALPROC : mBOOLEAN(THISID,FURMAL)3% 


NPARStsPARAMTAB[P}3 PitePolss 
IF FORMALPROC THEN NPARS8899993% 
INSYMBQL3% 
IF CURSY@LPAR THENS 
BEGINS 
PUTSPMCMCM)SR 


DQ BEGINS 


INSYMBOL3% 
IF yPARS®0 THEN BEGIN ERROR(3)3 SKIPCRPAR)S Go To EXIT EnDse 


PARAMSsPARAMTAB[P]3; PtaP+1 3% 

PTYPE s2PARAMePARAMTYPESS 

IF PARAMePARAMKIND*CONST THENS 

BEGINS 
CHECKS @CHECKOPTION AND TYPETABICPTYPE] FORM LEG CHARS’ 
IF CHECK THEN PUTTEXTC™CHECK( HDS 


PUTDUMMY3 FIRSTSym&SsNUMSYMS3% 


EXPRLEVEL SSEXPRLEVEL 415% 

EXPRESSIONS EXPRLEVELSeEXPRLEVEL S13 

IF CURMODE*RITPATTERN THEN’ 

BEGIN SYMTABLCFIRSTSyM)ia"™ REALC "2 PUTSYMC")")4% ENDS 


IF CHECK THEN’ 
BEGINS 
PUTSYMCMe")5 PUTCONSTCTYPETAB2LPTYPE])3% 


01279 
01280 
01281 
01282 
01283 
START OF SEGMENT 
01284 
01285 
01286 
01287 


01288 
01289 
01290 
01291 
01292 
01293 
01294 
01295 


01296 


01297 
01298 


01299 
01300 
01301 
01302 
01303 
01304 


01305 


01306 
01307 
01308 
01309 


01310 
01311 
o13te 


ee eee 


4 ee eee ee ee ee 


4444 


a4 


0375 
0375 
0375 
0375 
0375 


aekbhakin 11 


0000 
0000 
0000 


é 
00001287 
00001287 
00001287 

0016 

0018 

0019 

00214 

0023 

0023 

0024 

0024 
00001295 
00061295 
00001295 

0033 

0034 

0034 
00061298 

0037 

0040 

0044 

0049 

0043 

0045 
00001304 
00001304 

0052 
00001305 
00001305 
00001308 

0060 

0064 

0063 

0064 
00001309 
00001309 
00001309 
00001309 

0078 

0075 

0076 
00001312 
00001312 
Q0001312 
00001312 
Q0081L3le 
00001318 


PUTSYMC™s")s PUTCONSTCTYPETABSCPTYPE J) )3% 


PUTSYMC™s")3 PUTCONSTCCARDCNT)3 PUTSYMC™)")4% 


END3S&. 
END ELSE* 


IF PARAMePARAMKINDSVAR THENS 
BEGINS 
IF CURSY=IOENTIFIER THEN 
BEGINS 
SEARCHS4 


IF FOUND THENS 
BEGIN® 
IF THISIDeIDCLASS#VAR OR% 
THISIDeIDCLASSSCONST AND BUOQLEANCTHIS] DeFORMAL) THENS 
BEGINS 
IF PARAMsPARAMFILE?) THENX 
BEGINS 
CURTYPES@THISID,TYPEs% . 
PUTIDOC"V", LOOOXTHISLEVEL+THISINDEXs5)3 PUTSYMC%e") 32% 


PUTIDOC™F™,s1000XTHISLEVEL#THISINDEX25)% PUTSYMC%9")3% 


01313 


01314 


T 


T 


01315 T 


01316 


01317 
01318 
01319 
01320 
01321 


01322 
01323 
01324 
01325 
01926 
01327 
01328 
01329 
01330 


01331 


~ 


a44-4-4 


a 


0096 


0117 


0146 


00061312 
00001312 


00001313 
00001313 
00001315 
00001313 
90001314 
00001313 
00001313 
00081314 


00001314 
00061314 
00001314 
00061314 
00001314 
00001314 
00001314 
00001314 
00001314 
00001314 
00001314 


00001311 
46 


0146 
o14P 
0146 
0149 
0149 


0178 
0176 
0178 
0180 
0183 
0183 
0184 
0184 
0186 


02190 


00001308 


00001321 
00001321 
00001324 
00081321 


00001330 
00001330 
00001330 
00001330 
00001330 
00001330 


0000133} 
00001331 
00061331 
00061331 
000061331 


one 


PUTIDO"E" 2 LO00XTHISLEVEL*THISINDEX05) 5% 


INSYMBO 
END ELSES 


BEGINS 


VARTABL 
IF TYPE 


IF NOT STMPLEVARIABLE THEN ERROR(92)5% 


ENDS 


END ELSE BEGIN ERROR(8)3 CURTYPES sO ENDI% 


Las 


Ess 
TABICCURTYPE J ¢STRUCT>Q THEN’ 


END ELSE BEGIN ERROR(4)3 CURTYPES#®0 ENDS% 


END ELSE BEGIN ERROR(9)3 CURTYPESS0 END3% 


END EL 
BEGINS 


SE% 


IF CyURSY*IDENTIFIER THENS 


BEGI 
Se 


N& 
ARCHS4% 


IF FOUND THEN’ 
BEGIN 


PUTIDC™V%>1 


CURTYPES®IF THISIDeIDCLASSSFUNC THEN THISIp TYPE ELSE 03% 


INSYMBOL3% 


a ” 
IF THISIDeIDCLASS#PARAMePARAMKIND THEN ERROR(94)33% 


OOOxTHISLEVEL*THISINDEX#5)5% 


END ELSE BEGIN ERROR(1)4 CURTYPEt=0 ENDIS 


END EL. SE BEGIN ERROR(9I3 CURTYPE!#0 ENDS% 


END3% 


CHECKTYPESCPTYPEsCURTYPE)3% 


0133¢@ 


01333 
01334 


01335 
01336 
01337 


01338 
01339 


01340 
01344 
01342 


01343 


01344 
04345 
01346 
01347 


01348 
01349 
04350 
01351 


a 


44-4 +4 


01352 T 


01353 
01354 


01355 


01356 
01357 


4-4 


00001331 
2340 
0000133g 
00001332 
00001332 
0250 
0254 
00061328 
0251 
0254 
9252 
0253 
0256 
00001335 
34 


00001326 
00001340 
0258 
00001323 
00061341 
0256 
00061320 
0000134e@ 
O26e 
00081318 
262 
0262 
0264 
0263 
00001347 
QO0OL34F 
00001347 
00001347 
0299 
029a 
0298 
0295 
00001351 
00001351 
00001351 
Q312 
0316 
0317 


00001349 | 


00001354 
0319 
00001348 
00001355 
0324 
00001346 
21 


000014357 


00091357. 


00001357 
00061357 
00061357 


00001357 


NPARS&aNPARS@43% 
IF CURSYSCOMMA THEN PUTSYM( %)") 3% 


END UNTIL CURSY*COMMAS% 
IF CURSYZRPAR THEN BEGIN ERROR(89)3 SKIPCRPAR) ENOS3 


EXITS PUTS¥MC%)%)3% 


IF CURSY2RPAR THEN INSYMBOL3% 
END3% 


IF NPARS>O AND NOT FORMALPROC THEN ERRQORC3)3% 
CURMODE t@NUMBERS& 
END OF PASSPARAMS}3% 


% 
p 4 
PROCEDURE FACTORS R*** FACTOR wee 
BEGIN Leeenteeakeeane 
INTEGER STARTSYMeSTYPEST3% 
BOOLEAN FIRST3% 
: REAL VALs% 
DEFINE PARAMETERS Raee CHECK THAT THE FUNCTION HAS 1 PARAM, 
BEGINS 
INSYMBOL 3% 
IF CURSY2*LPAR THENZ 
BEGINS 
PUTSYMC™C™)3 INSYMBOL4 EXPRESSION} 
IF TYPETABICCURTYPE].FORMSNUMERIC THEN CURTYPESSINTTYPES3 
IF CURSY4RPAR THEN BEGIN ERROR(3)4 SKIPCRPAR) EnDs® 
 PUTSYMC™)")3 TF CURSY®RPAR THEN INSYMBOL3S 
END ELSE ERROR(3)3% 
‘ ENO OF PARAMETER#3% 
CURMODE 3 sNUMBERJ® 
IF CURSY® IDENTIFIER THENS 
BEGINS 
SEARCH3% 


IF FOUND THENS 
BEGINS 


01398 
01359 


01360 
03361 
01362 


01363 
01364 


01365 
01366 
04367 


44 


ee ae 


11 1S 414 LONG, 


01368 
01369 
01370 
O1371 
01372 
START OF SEGMENT 
01373 
O1374 
01375 
01376 
01377 
01378 
01379 
01380 
04381 
01382 
01383 
013684 
01389 
01386 
01387 
01386 
01389 
01390 
01391 


01392 
01393 


a a a as st ts te 


4-4 


00061357 
0380 
0384 
00001359 
00001359 
00001359 


00001298 


00001361 

0394 
00061362 
00001368 
00001362 


00001287 
2 


NEXT SEG 


0375 
0375 
0378 
Q37§ 
0375 


we eteetant 12 


0000 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0009 

0000 

0000 

0000 

0000 

0000 

0000 

0000 

0006 

0004 

0002 
00001391 
00001391 
00001391 
00001391 

0034 

0034 


IF THISIO,IOCLASSsVAR OR* 
THISIDe IOCLASSSCONST AND BOOLEANCTHISID, FORMAL )& 

THEN VARIABLE ELSES 

IF THISIDelOCLASS®CONST THEN% 


BEGIN’ . 
IF THISIOeINFOS1023 THEN PUTCONSTC(THISID, INFO) 


ELSE PUTCONSTCCONSTTABCTHISIDeINFQ"4023))6 


CURTYPES=THISIOs TYPES CURMODES@NUMBERS% 
INSYMBOL 4% 
END ELSE% 


IF THISIDsIOCLASSSFUNC THENS 
BEGIN’ 
IF THISTAB=O THEN 
BEGINS’ 
INTEGER DUMMY 3% 


Raew INTRINSIC FUNCTION ene 


IF CURNAME1™"3000ABS" THEN % "ABS" 


BEGIN? 
PUTTEXT(" ABS")3 PARAMETERsS 


IF CURTYPEZREALTYPE AND CURTYPEZINTTYPE THEN ERROR(C 67 23% 
END ELSE 


IF CURNAMEL="3000CHR” THEN % "CHR" 
BEGIN’ 

INSYMBOL3S% 

IF CURSYSLPAR THEN’ 

BEGIN INSYMBOLS CHECKEXPR(056393% 


01394 
Q1395 
01396 
01397 


01396 
01399 


01400 


0140) 


01402 
01403 


01404 
01405 
01406 
01407 
01408 


START OF SEGMENT 


01409 
01410 
01411 


01412 
01413 


01414 
01415 
01446 
01417 
01418 


tte tt 


a4 


4q444- 


0034 

0033 

0035 

0036 

0038 

0038 
00001399 
00001399 
00001399 
00001399 
00001399 

0054 
00001400 
00001400 
00001400 
00001400 
00001400 

0068 

0070 

O07, 
00001396 

0074 

0073 

0073 

0074 

OQ74 


eaeeeaetas 13 


000¢ 

0000 

0004 
00001411 
00001411 
00001411 
00001414 
00001411 
00001411 
00001411 
00001411 
00001411 
00001411 
00001411 

0036 

0039 
9 000os aie 


0040 

0044 

0041 

0004p 
00061418 
00001418 
00061418 
00061418 
00001418 
00001418 
00061418 
00001418 


@® e@eeeeee#eeeeeseese*seeee ee @ @ 


IF TYPETABLCCURTYPE] eF QRMZNUMERIC THEN ERRORC67 33% 
IF CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) END3% 


IF CURSYSRPAR THEN INSYMBOL3% 
END ELSE ERROR(58)3% 


CURTYPESSCHARTYPES% 
END ELSES 


IF CURNAME1#"3000E0F" OR % "EOF"/"EQUN" 


CURNAMEL®”"4OQEOLN” THENS 
BEGINS 
FIRST? SCURNAME1s"3000E0F "3% 
FILEPARAMCINPUTFILE) 3% 


PUTIOC"IMsFILENAMES5 5% 


PUTTEXTCIF FIRST THEN ® ,EOF" ELSE " ,EULN")33 


IF LPARFOUND THENS 
BEGINS 
IF CURSYZRPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDS 


01419 
01420 


01421 
01422 


01423 
01424 


01425 
01426 
01427 


01428 
01429 


01430 


01431 


01432 
01433 


01434, 


a 


ee a ee | 


“+44 4 


00001418 
00001418 
00001418 
00001418 
00001418 
00001418 
00001418 
00001418 
00081418 
00001418 
00001418 
00001418 
00001418 
00001418 
00001416 
00001418 
00001418 
00001418 
00001418 
Qooe1418 
00001418 
00001418 

0120 

0122 
00001420 

5 


0127 
00061416 

0128 

0129 
00001414 

29 


0136 
0131 
0132 
0433 
00001429 
00001429 
00001429 
00001429 
00001429 
oo001 429 
00001429 
oo001428 
00001429 
00001429 
0186 - 
00001430 
00081430 
. 000901430 
0201 
00061431 
0209 
0209 
0209 


00081431 


IF CURSYSRPAR THEN INSYMBOLs% 
ENDS4 


CURTYPES#BOOLTYPESS 
END ELSES 


IF CURNAME1="30000DD" THEN x "oD0" 


BEGINS. 
PUTTEXTC" ODD")s PARAMETERS 


IF CURTYPEFINTTYPE THEN ERROR(67)3% 
CURTYPESSBOOLTYPES CURMODES*BITPATTERNSS 


END ELSE 


IF CURNAMELS"30000RD" THEN % "ORD" 


BEGIN’. 
PUTSYMC™C")3 INSYMBOLS2 


IF CURSYS.PAR THENS 
BEGINS 
INSYMBOLS EXPRESSIONS 
IF TYPETABICCURTYPE J ¢FORM>CHAR THEN ERRQR(67)3% 
IF CURSYFRPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDSS 


INSYMBOL 3% 
END ELSE ERROR(58)3% 


CURTYPES®INTTYPES PUTSYM(")")3% 


ENp. ELSEX 


IF CURNAME{S"4OOPRED” OR 
GURNAMELS"400SUCC” THEN 


% "PRED /MSUCC™ 


BEGINS 


FIRSTY®CURNAMELS"4OOPRED "3% 
PUTTEXTC™CHECK(")3 INSYMBOL3% 


IF CURSY*LPAR THENS 
BEGIN’ 
INSYMBOL3 EXPRESSIONS 
_PUTSYMCIF FIRST THEN "*" ELSE "43 PUTSYMCM1")38 


01435 
01436 


01437 
01438 


01439 


01440 
0144) 


01442 
01443 


01444 


01445 


01446 
01447 


01448 
01449 
01450 


01451 


01452 


04453 
01454 


01455 


01456 


01457 
01458 
01459 
01460 
01461 


01462 
01463 
01464 
01465 


4+ -4 


a aa4 4H a4 


4~44464-5 +4 


+44 


0212 

Q214 
00061433 

214 


0215 
00001427 


oo oOo 
TR AD 
ee pe 
oacum 


00001441 


00001444 


00001444 
0000144) 


00001441 


00001441 
00081441 


00001441 


00001441 
_ 00001444 
0254 
0256 
0258 
00001440 
6 


0259 

0259 
00061447 
000801447 
00001447 

0269 

0269 

0270 

0271 

0274 
00001458 

0276 

0277 
00001449 
00001455 
00081453 
00061455 


00001446 


00001461 
00061461 


00001465 


eo @e6ee0eee6ee00 80 0 0 0 080e0e 00080808 a@ a @a 


IF TYPETABLLCURTYPE)eFORM>CHAR THEN ERRUR(67)5% 
PUTSYMC%»™)3 PUTCONSTCTYPETAB2(CURTYPEJ)3% 


PUTSYM("9")3 PUTCONSTCTYPETABS(CURTYPE) )34 


PUTSYM(%s")3 PUTCONSTCCARDCNT 32% 


PUTSYMC™)")5% 


IF CURSYZRPAR THEN BEGIN ERRORC46)3 SKIPCRPAR) ENDSS 
IF CURSY®RPAR THEN JNSYMBOL3S 
END ELSE BEGIN ERRURC58)3 CURTYPES#0 ENDSS 
END ELSEX 
IF CWRNAMEL*"50ROUND” THEN x "ROUND" 


BEGINZ |. 
PUTTEXTC™ ROUND"™)3 PARAMETERS% 


01466 
01467 


01468 


01469 


01470 


O14a74 
O1472 
O1d73 
01474 
04475 


01476 
01477 


44-4 4 


00001465 
0000146$ 
00001465 
00001465 
00001465 
0319 
0321 
00001467 
00001467 
OOO01467 
00001467 
00001467 
00001467 
00001467 
00001467 
0348 
00001468 
00001468 
00001468 
00001468 
00001466 
00001468 
00001468 
00001468 
0363 
00001469 
00001468 
00001469 
00081469 
00001469 
00001469 
00001469 
00001469 
0384 
00001470 
00001470 
00001470 
0399 
00001473 
0394 
0396 
000081463 
00001473 
0398 


00001459 __ 


0398 

0399 

0400 
00001477 
00001477 
00001477 
00001477 
00001477 
00001477 
o00e147?7 
00001477 
oooeL47? 


IF CURTYPEZREALTYPE THEN ERROR(67 3% 
NUMSYMSS@NUMSYMS*13 PUTSYM(%9%)3% 


PUTCONSTCCARDCNT)4 PUTSYMC()%)5% 


CURTYPESaINTTYPES2 
END ELSES 


IF CURNAMEL®"3000S@R" THEN x "SQk" 


BEGIN’ 
PUTTEXT(" SQ@R")3 PARAMETERSS 


NUMSYMSS@NUMSYMS* 44 PUTSYM("2")3% 


PUTCONSTCCARDCNT)4 PUTSYMC™)")6% 


IF CURTYPESREALTYPE AND CURTYPEZINTTYPE THEN ERROR(C67)3% 
END ELSES’ 


IF CURNAMEL®"SOTRUNC” THEN * "TRUNC" 


BEGINS’ 
PUTTEXTC™ TRUNC")S PARAMETERSS 


01476 
01479 


01480 


01481 
01482 


01483 


01484 
01485 


01486 


04487 


01488 
01489 


01490 


01491 
01492 


4-4-4 


4-4 


4-4 +4 


00001477 
00001477 
0435 
0437 
00001479 
00001479 
00001479 
0446 
00001480 
00001480 
00001489 
00061480 
00001480 
00001480 
00001480 
00081460 
O46? 
0467 
00081476 
Q4oP 
0469 
0469 
00001485 
00001485 
00001485 
00001484 
00081485 
00001488 
00004488 
00001485 
0000148§ 
00061488 
00001485 
0504 
00001486 
000801486 
00001486 
0513 
QQ001L48? 
00001487 
00001487 
00001487 
00001487 
00001487 
00061487 
00001487 
0534 
0537 
00001484 
7 


0538 

0538 
00001492 
00081492 
000861492 


00061498 


00001492 


NUMSYMSESSNUMSYMS@]3 


PUTCONSTCCARDCNT )3 


IF CURTYPEZREALTYPE 
CURTYPESSINTTYPESS 
END ELSES 
IF CURNAMEL®="6CONCAT"™ 
CONCAT ELSES 
IF CURNAME 1="4O00T IME" 


BEGINS 
PUTTEXTC™(TIMEC™ D3 


CURTYPESSREALTYPES 
END ELSES 


IF CURNAMEL="*400DATE" 


BEGINS’ 
PUTTEXTCMCURDAT") 34 


— CURTYPESMALFATYPES 
END ELSE% 
IF cURNAMEL#"7ELAPSE" 


BEGINS 
PUTTEXTC™CTIMEC™)3 


CURTYPES@REALTYPES 
END ELSEX 


IF CURNAMEL@"6IQTIME” 
BEGIN* 
PUTTEXTC MC TIMEC™)3 


PUTSYM( Ms") 5% 


PUTSYMO™ )")5% 


THEN ERROR O67 )3% 


THEN % "cONCAT® 
TREN % "TIME" 
PUTTEXT(%4)/602")33 
INSYMBOL 3% 

THEN % "DATE 
INSYMBOL3% 


AND CURNAME2S"0" TREN 3 "ELAPSED" 


PUTTEXT("2)/60)")5% 


INSYMBOL 3% 


THEN x "IOTIME" 
PUTTEXT(93)/60)")8% 


01493 


01494 


Q1495 
01496 
01497 


01498 
O1499 
01500 
01501 
01502 


01503 
01504 


01505 
01506 
01507 


01508 
01509 


01510 
01511 
O15ie2 


01513 
04514 


01515 


01516 
01517 


ee | 


4qa44 +44 


444 4-3 


00061492 
00001492 
00001492 
00061492 
00081492 
00001492 
0573 
00001493 
00001493 
00001493 
0582 
00081494 
00001494 
00001494 
00001494 
00001494 
00081494 
00001494 
00081494 
0603 
0605 
0605 
00001494 
0605 
Q6o?P 
0608 
0610 
06114 
0000150¢ 
00001508 
00001502 
00091502 
25 


0626 
00001501 

0626 

0629 

0630 
0000150? 
00061507 

O63? 

0638 
00061506 

38 
0642 
0643 


00001512 


00001512 

00001512 

00001512 
0657 
0658 


.. 90001511. 
0658 


0664 
0668 ptt 
00061517 


® ~@e 


CURTYPE!@REALTYPES INSYMBOL3% 
ENp ELSES . 


IF CURNAME1®"7WEEKDA® AND CURNAME23"Y" THEN % "WEEKDAY" 


BEGINS. . : 
PUTTEXTCTWEEKDA") 3% 


CURTYPES@ALFATYPES INSYMBOL 3% 
END ELSE IF CURNAMELS"™400USER™ THEN % "USER" 


BEGIN 
PUTTEXTC™ TIME")} PUTTEXTC™ (49%) 5% 


CURTYPESSALFATYPES INSYMBOLS% 
END ELSE % "SIN"S"COS” ETC, 


BEGIN’ 
SUTTEXTCIF CURNAMEL1S"3000SIN" THEN " SIN" ELSE 
IF CURNAME4#"3000CQS" THEN * COS" ELSES 
IF CURNAMEL®"6ARCTAN® THEN "ARCTAN” ELSES 
IF CURNAMELS"4O0O0SQRT” THEN * SQRT” ELSES 
IF CURNAME1="3000EXP™ THEN ™ EXP" ELSES 
" LN" 93% 


PARAMETERs& 


IF CURTYPEZREALTYPE aNp CURTYPEFINTTYPE THEN ERROR(67)3% 
CURTYPES#REALTYPESS 
END3% 


END OF INTRINSIC FUNCTIONS ELSEX 


BEGINS ae 
TeaTHISIO, TYPES 
PASSPARAMS 3% 
CURTYPES 873% 

ENDs% 


ND OF FUNCTIONS ELSE% 


01537 
01538 
01539 


01540 


44 —-4-4 


4-4 


aot tt ty 


4 +44 


13 TS 784 LONG» 


0154) 
01542 
01543 
01544 
01545 


041546 


4 AaAAwawas 


00001517 
00001517 
00061517 
0676 
0677) 
00081516 
0677 
0684 
0689 
00061522 
00001522 
0689 
Q69a 
00061521 
0693 
0694 
00001526 
00001526 
00081526 
00001526 
0708 
0709 
00001525 
0709 
0712 
0712 
0712 
Q712 
0712 
0712 
00001538 
00001535 
Q72? 
00001536 
00001536 
00001536 
00081536 
00001536 
00001536 
000801536 
00001536 


00081534 
0765 


0768 
0769 
00001529 
0769 
00001407 


NEXT SEG le 


0076. 

0076 

oo7? 

0078 | 

0079 
0006154} 

0079 | 
00001408 


IF THISIO,IOCLASS#PROC THEN 
BEGIN’ 
ERROR(68)4 PASSPARAMS#% 
CURTYPE &#03% 
END ELSE BEGIN ERROR(69)3 CURTYPE##03 INSYMBOL ENDS 


END ELSE BEGIN ERROR(4)3 CURTYPE%303 JINSYMBOL ENDS% 


ENO OF JDENTIFIER ELSEX 


IF CURSYSCHARCONST THEN’ 
BEGINS 
CONSTANTCVAL*CURTYPE)S PUTCONSTCVAL 3% 


END ELSES 


IF CURSYSNOTSY THEN% 


BEGINS 
PUTTEXTC¢® NOT 23 PUTQUMMYS STARTSYMISNUMSYMSJ4% 


INSYMBOL3 FACTORS% 
IF CURTYPE>0 THENS 


IF CURTYPEZBOOLTYPE THEN BEGIN ERRORC17)3 CURTYPE$@0 ENDS 


IF CURMODES®NUMBER THEN 
BEGIN SYMTABCSTARTSYMJ is” BC" PUTSYMCM)™)3% 


01547 
01546 
01549 
01550 
01551 


01552 


01553 


01554 
04555 
01556 


01557 


01556 
01559 
01560 


01561 
01562 
01563 


01564 
01565 


Aaa 


44-4 


a+ 


444 


0079 

0080 

0084 

0088 

0083 
00061548 
00061551 

0085 


00061393 
00001553 

008@ 
00001390 

0088 

0089 

0090 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001558 
00001556 
00001556 
00001558 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 
00001556 

0190 
00001555 

0190 

0194 

0192 
00001560 
00001860 
00061560 
00081560 
00001560 

0206 

o207 

o208 
00001568 

O214 

0212 
00001565 
00001565 


CURMODESSBITPATTERNS& 
END3% 


END ELSEX 
IF CURSY@NYILSY THENS 
BEGINS’ 
PUTCONST(O)3 CURTYPESSNILTYPESS 


INSYMBOL 33% 
END ELSES 


IF CURSY#LPAR THENS 
BEGINS 
PUTSYMC™¢%) 3X 


INSYMBOL$ EXPRESSION3% 
If CURSY#RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDS 


PUTSYM(™)")3% 


INSYMBOL3% 
END ELSES 
IF CURSY®LBRACKET THEN Raww SET CONSTANT wen 
BEGIN’ 

INSYMBOL 5% 

IF CURSYRBRACKET THEN 

BEGINS 

PUTCONST(O)4 CURTYPES sEMPTYSETs CURMODES sNUMBER3% 


INSYMBOL3% 
END ELSEX 


BEGINS 
FIRSTtsTRUES% 
00 BEGINS 
IF FIAST THEN FIRSTItaFALSE ELSE INSYMBOL3% 
PUTTEXTC™ BITC%)3 STARTSYMSeNUMSYMS33% 


EXPRESSIONS: 
IF STYPE®O THENS 
BEGIN STYPEtaCURTYPES% 


01566 
01567 


01568 


01569 
01570 
01571 


01572 
01573 


O1574 
01575 
01576 


013577 
01578 


01579 


01580 
01581 


01582 
01583 
015684 
01585 
01586 
01587 


013588 
01589 


01590 
01591 
01592 
03599 
01594 


01595 
01596 
01597 


ee ee ee | 


a a 


See ee ee ee ee 


a 


00001565 
0223 
0224 
00081565 
0224 
00001559 
224 
0225 
0226 
00001571 
00001571 
000901571 
00001571 
00001571 
0239 
0239 
00001570 
0239 
0241 
0244 
00001576 
00081576 
00001576 
0e49 
0250 
000015786 
32 


00001579 

00001579 

00001579 
60 


0260 
00001575 

0260 

0262 

026% 

0263 

0263 

0264 
00001587 
00061587 
00001567 
00001567 
00001587 

0279 

Q279 
00061586 

0279 

0280 

0280 

028, 

0283 
00081594 
00001594 

0290 

0290 

0294 


IF TYPETABLCCURTYPE),FORM>CHAR THEN ERROR(72)5% 
END ELSE CHECKTYPESC(STYPEsCURTYPE ) 5% 


IF CURSY*DQUBLEDOT THEN’ 
BEGIN4 
PUTSYMC%9%)3 SYMTABECSTARTSYMJ] #3" BITS("3% 


INSYMBOLS EXPRESSIONS% 
IF STYPESO THENS 
BEGIN STYPESSCURTYPESS 
IF TYPETABLCCURTYPE JeFORM2CHAR THEN ERRQR(72)3% 


END ELSE CHECKTYPES(STYPE»sCURTYPE)3% 


ENDS% 
PUTSYMC%2")3 PUTCONSTCCARDCNT)2 PUTSYMC™)™)3% 


IF CURSYSCOMMA THEN PUTTEXT("™ OR" )5% 


END UNTIL CURSYACOMMASS 


IF CURSYZRBRACKET THEN’ 


BEGIN ERROR(59)3 SKIPCRBRACKET )3% 


IF CURSYSRBRACKET THEN INSYMBOLS% 
END ELSE INSYMBOLS% 


NEWTYPES TASsSETS TieSIZES213 TLleSTRUCTS#03% 


TLgSETTYPES@STYPES TYPETABICTYPEINOEXI baT13% 


01596 
01599 


01600 
01601 
01602 


01603 
01604 
01605 
01606 


01607 


01608 
01609 


01610 


01611 
Ql6ie 
01613 
01614 
01615 


91616 


01617 


a4 


a 


ee i 


0292 
0295 
Q0001597 
00001599 
00001599 
O000159% 
00061599 
00001599 
00001599 
00061599 
0356 
0356 
0357 
00081602 
00001602 
00001602 
0366 
O36? 
0367 
0369 
O374 
00001605 
00001607 
00061607 
00001607 
90081607 
00001607 
00001607 


00061607. 


0433 
00001601 

0433 ae, 
00001609 
00001609 
00001609 
00001609 
00001609 
00001609 
00001609 
00061609 
00001609 
00001609 
00001609 

0464 


00001610 


00081610 
0466 
00061592 
69 
0470. 
0472 
0473 


googiels . 
476 


00001616 


00081616... 


0485 


a —- 


@eeeoeeeeeeeeeeeeé§eeeeeseeveeese ®@ 


ENO 


% 
% 


PROCEQURE TERMS 
EG] 


B 


CURTYPES STYPEINDEXS% 
CURMODE s=BITPATTERNGS 
END 3% 


END OF SET CONSTANT ELSE BEGIN ERRORC99)5 INSYMBOL ENDsS 


CF FACTORS 


Zwee TERM wee 
Rewkeeekakane 


N 
INTEGER STARTSYMs»MODE,TYPELsMULOPTR,Fs% 


PUTDUMMYS STARTSYMSSNUMSYMS/% 


FACTORSS = 

MODES aCURMODES 

WHILE CURSYZASTERISK ANp CURSYSMODSY pO % "*M"/eMDIVMA"NODMs MAND™ 
BEGINS 


TYPEASSCURTYPES MULOPTRESCURSY3% 
FralTYPETABICTYPE1LJ»FORMS% 
IF FeNUMERIC OR FaRFLOATING THENS 
BEGINS | 
MODE S=NUMBERS% 
IF CURSY"ASTERISK THEN PUTSYM("x") ELSES 


JF CURSY2SLASH THEN PUTSYMC"/") ELSES 


IF CURSYSANOSY THEN ERROR(64) ELSES 


BEGIN® 
IF FaFLOATING THEN ERROR(64)3% 
IF CURSY®DIVSY THEN PUTTEXTC™ pIV™) ELSE PUTTEXTC™  MOD")5% 


ENO END ELSE*% 


IF CURTYPESBOULTYPE OR FSSET THENS 
BEGINS 
MODES sBITPATTERNJS 
JIF..CURMODE‘MODE THENS. | 
BEGIN SYMTABLSTARTSyM)% a" BCs PUTSYMC(™)") ENDS% 


01618 
01619 
01620 


01621 


01622 


4 +44 


T 


12 1S 4968 LONG, 


01623 
01624 
01625 
01626 
01627 
START OF SEGMENT 
016268 


01629 
01630 
01631 
01632 
01633 
01634 
01635 
014636 
01637 
01636 


01639 


01640 


0164) 
01642 
01643 


01644 


01645 
01646 
01647 
01648 
01649 


+ + 4-4-4 +4 


eS 


44-44 


ee 


0488 

0489 

0490 
00001590 

0 


000015838 

00001621 
0492 

00001371 


NEXT SEG 2 


0375 
0375 
0375 
Q375 
0375 


ceed ee 14 


0000 
00081628 
00001628 
00061628 

0006 

0007 

OOoOF 

0010 

0010 

00144 

0013 

0015 

0015 

0016 
00061636 
00001638 
00001638 

0026 
00001639 
00001639 
00001639 

0035 

0038 

0038 

0040 
00001643 
00081643 
00061643 
00001649 

0055 . 
00001641 
00061634 

0055 

0059 

0060 

QQ64 

0064 


“i 


@®eeeeeeeeeeseeeeeeeeeeeeese ®@ 


PUTTEXT(™ AND ")3% 


If CURSY4CIF FSET THEN ASTERISK ELSE ANDSY) THEN ERROR(64)4% 
END ELSE ERROR(64)5% 


PUTOUMMY3 STARTSYMtsNUMSYMS3% 


INSYMBOL3 FACTOR:3 
IF CURTYPE?0 AND TYPE{?20 THEN? 


BEGINS eee ee 
IF CURTYPESTYPEL THEN 


BEGINS 
IF TYPETABICTYPEL J eFORMANUMERIC OR CURTYPEZREALTYPE THENS 
CHECKTYPESCTYPE yeCURTYPE 23% 


JF TYPELSREALTYPE THEN CURTYPESeREALTYPES2 
ENDS% 


IF CURTYPE*REALTYPE AND MULOPTR2DIVSY THEN ERRUR(65)5% 
ENDs% 


If MULOPTRSSLASH THEN CURTYPESSREALTYPESS 
IF CURTYPESO THEN CURTYPES®STYPE132 
END OF WHILE LOOP3% 


IF MODESBITPATTERN AND CURMOQDEZMODE THENS 
BEGIN SYMTAB[STARTSYM] 35" BC") PUTSYMC™)") ENDSS 


CURMODE t =MQDE3% 
END OF TERM3% 


% 
% 
PROCEDURE SIMPLEEXPRESSIONS Zeee SIMPLE EXPRESSION wwe 
BEG Gee keneedeenekteene heen 


IN as. 
INTEGER STARTSYMeMODEsTYPEL SF 3% 


14 18 


04650 


01651 
0165e 


01653 T 


01654 
01655 
01656 
01657 
01658 
01659 
01660 


01661 
01662 


01663 
01664 


01665 
01666 
01667 


01668 
01669 


01670 
01671 


AANA 


Se 


+41 


T 
T 


00001649 

00001648 

00001649 

00001649 
0074 ae 
00001650 

00081650 
0078 


0082 
00001646 

0084 
00081653 
00001653 
00001653 

0094 

0092 

0094 

0094 

0095 

0095 

0098 
00001660 
00001660 
00001660 
00001668 
00091660 
00001660 
00081660 

0159 

0164 
00061658 

0141 

0164 
00061656 

0164 

0166 

0168 
00001632 

0168 

0170 
00091669 
00001669 
00001669 
00001669 

0180 

0184 
00001626 


185 LONGs NEXT SEG 2 


01672 
01673 
01674 
04675 
01676 


rr . ) 


0375 
0375 
0375 
Q375 
0375 


BOOLEAN SIGNEDs&% 
PUTOUMMY3 STARTSYM#BNUMSYMSA% 


IF CURSYSPLUS OR CURSY=MINUS THENS 
BEGIN SIGNED?£aTRUESS 
PUTSYMCIF CURSYZPLUS THEN*#" ELSE “my 3% 


INSYMBOL 3% 
END}% 


TERM3% 
MODE teCURMODE3% 
IF SIGNED THEN% 
BEGIN FrsTYPETABLILCURTYPE) »FORMS2% 
IF FXNUMERIC AND FAFLOATING THEN ERRORC29)3% 
END3% 


WRILE CyuRSy2PLuS AND CuRSYSORSY 0G 
BEGINS - 
TYPELSsCURTYPES F&sTYPETABICTYPEL)] FORMA: 
If FaeNUMERIC OR FeFLOATING THENS 
BEGIN MODE? SNUMBERS% 
IF CURSY®PLUS THEN PUTSYM("4") ELSES 


% Mot, teh TORN 


IF CURSY=MINYUS THEN PUTSYMC®#*") ELSE ERRORC64)3% 


ENO ELSE 


IF CURTYPESBOOLTYPE THEN® 
BEGINS 

MODES *gITPATTERNSS 

IF CURMODE*MODE THENS 

BEGIN SYMTABCSTARTSYMJ I=" BC"s PUTSYM(™)") ENDS% 


IF CURSY®ORSY THEN PUTTEXT(™ OR") ELSE ERROR(64)3% 


END ELSEX 


If. FUSET THENS 
BEGIN 
MODES aA ITPATTERNS2 
IF CURMODEFMODE. THEN’ 
BEGIN SYMTABLCSTARTSYM)3 a" BC™s PUTSYMC™)") ENDS 


START OF SEGMENT 
01677 
01676 
01679 


01680 
01681 
01682 


01683 
01684 


01685 
01686 
01687 
01688 
01689 
01690 


01691 
01692 
01693 
01694 
01695 
01696 


01697 


01698 


01699 
01700 
01704 
01702 
01703 


01704 


01705 


01706 
01707 
01706 
01709 
01710 


wkekkhabee 15 


1 
t 
YT 


a+ 


ee ee ee ee | 


a 


~444—-4 


000090 

00086 

0000 
00001679 
00001679 
00001679 

0006 

0008 

0009 
00001682 
00001682 
00001682 

0020 


0024 


00001684 
0021 
0024 
0022 
0022 
0024 
002% 

00061688 
027 


0030 

0038 

0032 

0034 

0035 
00001696 
00001696 
00001696 

4a 


00001697 
00001697 
00001697 

0054 
00001695 

4 


0056 

0056 

00S? 

0058 
000@1703 
00061703 
00081703 
00081703 

0068 
00001704 
00001704 

0077 
00061700 

77 


0079 
0079 
0080 
0081 


IF CURSY#PLUS THEN PUTTEXTC(" OR") ELSES 


IF CURSY#MINUS THEN BEGIN PUTTEXT(" AND")SPUTTEXT(™ NOT "JEND 


ELSE ERROR(64)3% 
END ELSE ERROR(64)3% 


INSYMBOL 3% 
PUTDUMMY; STARTSYM$ aNUMSYMS33% 


TERM3% 
IF CURTYPE>Q AND TYPE1>Q THENS 
BEGINS 
IF CURTYPETYPE) THENS 
BEGINS att 
IF TyPETABICTYPEL]«FORMANUMERIC OR CURTYPESREALTYPE THEN® 


CHECKTYPESC(TYPE.sCURTYPE 23% 


IF TYPELSREALTYPE THEN CURTYPES sREALTYPES% 
END ENDS 


IF CURTYPESO THEN CURTYPES*TYPE13% 
END OF WHILE LOOP3% 


IF MODESBITPATTERN AND CURMOVESBITPATTERN THENZ 
BEGIN SYMTABESTARTSYM)35" = BCS PUTSYMC™)") ENDSS 


CURMODE § SMQDE3% 
END OF SIMPLEEXPRESSIONS% 


Q1711 T 


Oi7ie T 


o 
—_= 
~ 
nD 
c 
4a at 


01724 7 
01725 T 


Q1726 
01727 


oi728 fT 


—O17ed 


01730 T 
01734 T 


01732 T 


00081710 


00001710. 


00001710 
00001710 
0094 
00001711 
00001711 
009g 
Ooooi7i2 
C00ae17Ti2 
oooei7ie2 
000d1712 


114 
00061712 
0418 
00001707 
118 
118 
00001716 


00001714 
00001716 


00001723 
00081723 
00001728 


00001723. 


0000172, 
00001723 
00001723 

0192 

0194 
0009172) 
00001719 

0194 

0196 
00001692 

0196 

0198 


oo0001729 


00061729 


O00e1729 


00081729 

0208 

Oeo9 
00081675 


15 1S 213 LONGs NEXT SEG 2 


0375 


r4 
PROCEDURE EXPRESSIONS Xeee EXPRESSION #4 
BEGIN Reeeevteceaketawreeer 


INTEGER STARTSYMsFIRSTSYMsTYPEL*RELOPTRo FSS 
BOOLEAN CALLGENsS 


EXPRLEVEL##EXPRLEVEL +133 
IF E€XPRLEVEL = 1 THEN? 


BEGINS 
PUTOUMMY 3% 


FIRSTSYM t# NUMSYMS3% 
END3% 


PUTDUMMYS STARTSYMS=NUMSYMS3% 
PUTDUMMY3% 


SIMPLEEXPRESSION?% 
IF CURSY2LSSSY AND CURSYSINSY THEN KR MeMse May eMa Me My Ms Mamet srs MTNN 
BEGINS 
TYPEgseCURTYPES FasTYPETAByCTYPE,],FORMI% 
RELOPTREMCURSY 3% 
IF FSALFA THEN® 
BEGIN’ 
IF CURMODE®BITPATTERN THEN® 
BEGIN SYMTABCSTARTSYMJ#e” RealLcvs PUTSYMC™)") ENDSS 


IF CURSY®LSSSY THEN PUTSYM(H<™) ELSES 
IF CURSY®LEQ@SY THEN PUTSYM(%S") ELSES 
IF CURSY#GEQSY THEN PUTSYM("2") ELSES 
IF CURSY®GTRSY THEN PUTSYM(M>"%) ELSEX 


IF CURSY*EQLSY THEN PUTSYMC"#") ELSE% 


01733 
01734 
01735 
01736 
START OF SEGMENT 
01737 
01738 
01739 
01740 
01744 
01742 


01743 
01744 


01745 


01746 


01747 
01748 
01749 
01750 
017514 
Ql75e2 
01753 
01754 
01755 


Q1756 


01757 


01758 


01759 


01760 


1 dt ta 


44 tt tte 


0375 
037§ 
0375 
0375 


HeettHh ee 16 


0008 
0000 
0000 
0004 
0002 
0008 
0000174@ 
00001742 
00061742 
0008 
0009 
00091741 
0¢ 


00001745 
00001745 
00001745 


00061746 
00001746 
000017468 


00001755 
00001755 
00001755 
00061755 
0043 
00001758 
00061756 
00001756 
0052 
00001757 
00001757 
00001757 
0064 
00061758 
00001758 
00001758 
0070 
00001759 
90001759 
00081759 
080 
00081760 
00001766 


1 


IF CURSY®NEQSY THEN PUTSYM("Z") ELSES 


BEGIN 
IF FeFLOATING THEN ERROR(64)3% 
SYMTABCSTARTSYM) se"INTSTC"™3S PUTSYMC(%>")3 CALLGENS@TRUESS 


ENDS% 
END ELSES 


IF FSSET THENS 
BEGINS | 

IF CURMODE*BITPATTERN THENS 

BEGIN SYMTABCSTARTSYMeiJ#@" REAL(™S PUTSYM(™)") ENDS% 


IF CURSY*E@LSY OR CURSY®NEQSY THENS 
BEGIN PUTSYMCIF CURSYSEQLSY THEN “aw ELSE e%)3% 
END ELSES 


BEGINS 
IF CURSYSLEQSY THEN SYMTABCSTARTSYMJ te" INCLAic™ ELSES 
IF CURSYSGEQSY THEN SYMTABCSTARTSYMJ] Sa" InClL2c™ ELSE ERRQR(64)3 
PUTSYMC"s")3 CALLGENS®TRUESS 


END END ELSE% 


If FePOINTERS THENS 


BEGINS 
IF CURSYSEQLSY THEN PUTSYM( =") ELSES 


IF CURSYSNEQ@SY THEN PUTSYMC("Z") ELSE ERROR(64)3% 


END ELSE ERROR(64)3% 


INSYMBOL 3% 
PUTOUMMY3 STARTSYMsaNUMSYMS3% 


01761 


444 


444-4 


a 


+++ 


00001760 
0089 
00001761 
00001764 
00001761 
0098 
0099 
0101 
00001764 
00061764 
00061764 
0112 
00001762 
Olle 
00061753 
2 


00001770 
00001770 
00061770 
00001770 


000e1772 
00001772 
00061772 

O13? 
00001772 

0137 

0137 

0140 

0146 
00001777 
00001777 
00001777 

0155 
00081774 
00001768 

0155 

0156 

0156 
00001781 
00001781 
00081781 

O65 
00001782 
00001782 
00001782 

0176 
00081780 

0177 

0177 
00081785 
00001785 
00001785 


SIMPLEEXPRESSIONS% 
IF CURTYPE>Q AND TYPE1>0 THEN’ 
IF CURTYPEFTYPE] THENS 
IF RELOPTRAINSY THEN’ 
BEGINS 
IF TYPETABICTYPELJ ¢eFORMAZNUMERIC OR CURTYPEAFREALTYPE THEN’ 
CHECKTYPESCTYPELsCURTYPE ) 3% 


END ELSES 


IF TYPETABICCURTYPE) eFORMSZSET THEN ERROR(66)% 
ELSE CHECKTYPESC(TYPEL*TYPETABLECURTYPE] »SETTYPE) 5% 


IF CURMODE#BITPATTERN THEN&S 
BEGIN SYMTABESTARTSYMJ 3a" KEALC™s PUTSYM(™)%) ENDS 


IF CALLGEN THEN PUTSYmMC))3% 


CURTYpPESsB00OLTYpES CURMODES*#BITPATTERNS4 
END3% 


EXPRLEVELS sEXPRLEVEL@13% 
IF EXPRLEVelLs0 THENS 
BEGINS 
IF CURMODESBITPATTERN THENS 
BEGINS 
SYMTABLFIRSTSYM] $2 " REALC"3S 
PUTSYMC™))3% 


ENDs% 
WRITEEXPR3S& 


01786 
01787 
01788 
01789 
01790 
Q1791 
01792 


01793 


gi794 
01795 


01796 
01797 


01798 


01799 
01800 


01801 
01802 
01803 
01804 
01805 


01806. 


01607 


ee 


a 


01808 T 


01809 


0184 
Q184 
0186 
O16? 
0189 
Q18¢ 
0192 
00061798 
00081792 
00001792 
00061792 
00001792 
00001792 
00001792 
0253 
00001790 
9253 
0256 
00001798 
00001795 
00001795 
00061795 
00001795 
00001795 
00001795 
0318 
0318 
00081797 
00001797 
00001797 
OOOO179F 
0329 
00001798 
00001798 
00001798 
Q33?7 
0339 
OOO01L74Y 
39 


0344 

0342 

0342 

0343 

0343 

0345 
00081807 
00091807 
00001807 

0353 
00001808 

0353 
00001809 
00001809 
00001808 
00001809 
0000180¢ 
00001809 


ENDS&% 
END OF EXPRESSYJONS% 


% 

% 

DEFINE BOOLEXPR#% 

BEGINS 
PUTDUMMYS EXPREEVEL S313 EXPRESSIQNSS 
IF CURTYPE>o THEN IF CURTYPEZBOOLTYPE THEN ERRORC17)3% 
IF CURMODEZBITPATTERN THENS 
BEGIN SYMTABCiJis” BC"™S PUTSYMC")™) ENDSS 
EXPRLEVELts04 WRITEEXPRIS 

END OF BOOLEXPR#s% 


01810 
01611 


Q181e 
01813 
01814 
01815 
01816 
01817 
01618 
01819 
01820 
01621 


T 
T 


439 LONG» 


ee ee ee 


00001809 
0432 | 
00061803 
0432 
00001735 
NEXT SEG 2 


0375 
0375 
0375 
0378 
0378 
0375 
037§ 
0378 
0378 
0378 


EERLLLLELRLLELALRARLARLE KALA L LULA ALEANAAAL AAA REAL LATE LUAATLLARATELLALTLY 


BE de aC ae Be aE de a2 


* 
% 
a 
% 
PART 53 INTRINSIC ROUTINES, % 
a 
a 
] 
& 
* 


ASEAAALAULLALEALAARAAAAARALTAATAATTAARLAALALLARALAALAALAASALASAAALAATIA 
x . 


% 
PROCEQURE CoNCaTs Zeee "CONCAT" tee 
BEGIN Ree takawkaneeatwe 


DEFINE INTEXPR#S 


BEGIN INSYMBOLS EXPRESSIONSS 
IF CURTYPE>0 THENS 
IF TYPETABLCCURTYPE) ,FORMZNUMERIC THEN ERROR(47)3% 


END #3% 
PUTTEXTC™CQNCAT™)3 = PUTSYmC™C" 23% 


INSYMBOL3% 
IF CURSYSLPAR THENS 
BEGINS 
INSYMBOLS EXPRESSION} 
If CURTYPE>Q THENS | 2% 
IF TYPETABICCURTYPE] «FQORM>ALFA THEN ERROR(I7)33% 
IF CURSYsCOMMA THEN? 
BEGINS 
PUTSYMC"%s")4 INSYMBOLS EXPRESSION#2 


IF CURTYPE>0 THENS 
IF TYPETABLICURTYPE) sFORMD>ALFA THEN ERROR(17)5% 
IF CURSY*COMMA THEN® 
BEGINS 
PUTSYMC"")3 INTEXPR3S 


IF CURSY#COMMA THENS 
. BEGINA. _. ; 
PUTSYM(C%2")3 INTEXPRIS 


. TF. CURSYSCOQMMA THENS 
BEGIN’ 


START OF SEGMENT 
01838 
01839 
01640 
01841 
01842 
01843 


01844 
03845 
01846 
01847 
01848 
01849 
018590 
01651 
01852 


01853 
01654 
04855 
01856 
01857 


01858 
01859 
01860 


01861 
01862 


at at a tat et tt 


SY  , 


+44 


4-4-4 


ooo 


375 
37S 
375 
0375 
0375 
0378 
0375 
0375 
0375 
0375 


— 0975 


0375 
0375 
0375 
0375 


eeeew aka 1? 


0000 
0000 
0000 
0000 
0008 
0000 
00001843 
00001843 
00001843 
00001843 
00001843 
0014 
0015 
0015 
0016 
0017 
0018 
0021 
0022 
0022 
00001852 
00001852 
00001852 
O34 
0031 
0035 
0035 
0038 
00001857 
00001857 


00001857 | 


OO000185S? 
0048 
0049 
0050 
00001860 


00001860 | 


00001868 
00001860 
0062. 
0068 


PUTSYMC"2")5 INTEXPRIS 


PUTSYMC("™s")3 PUTCONSTCCARDCNT 23% 


PUTSYMC™)")3% 


IF CURSYZRPAR THEN BEGIN ERRORC 323 SKIPCRPAR) ENDAX 


END ELSE BEGIN ERROR(3)3 SKIPCRPAR) ENDJS 


EnD ELSE SEGIN ERRORC 313 SKIPCRPAR) ENDS 


END ELSE BEGIN ERRORC3)23 SKIPCRPAR) ENDS 


END ELSE BEGIN ERROR(3)3 SKYPCRPAR) END3% 
END ELSE BEGIN ERROR(C3)3 SKIPCRPAR) ENDI® 


CURTYPE 8@REALTYPES% 
IF CURSY=RPAR THEN INSYMBOL34 
END QF CONGAT3% 


% 
% 
PROCEDURE PREAQ(CHANGELINE)3% 
VALWE CHANGELINE? BOOLEAN CHANGEL NESS 
BEGINS 

INTEGER FILEIDOF SS 


BOOLEAN CHECK3% 
GENC™ BEGIN" s7s2)3% 


FILEPARAMCINPUTFILE)3 FILEIOS*FILENAME 3% 


01863 


01864 


01665 


01866 


01867 


01868 


01669 


01870 


01871 


01872 
01873 
01874 


4-44 


47 IS 120 LONG,» 


01875 
01876 
01877 
01878 
01879 
01880 
START OF SEGMENT 
01681 
01862 


018683 


+--+ 4-4 


0063 
00001863 
00061863 
00001863 
00001863 

76 


00001864 
00001864 
00061864 
00081864 
00001864 
00081864 
00001864 
00001864 

0096 
00001865 
00001865 
00061865 

0104 
00001866 

0106 
00081862 
00001867 

0108 

00001859 
000861868 

0116 
00001856 
00001869 

O1te 


00001851 
00001870 
Ollila 
00001846 
00001871 
0116 
O11? 


9 
00001836 


NEXT SEG rd 


0375 
0375 
0378 
0375 
0375 
03975 


aehethxewe 418 


T 
T 


T 


0008 

0000 
00001882 

0009 
00001885 
00001883 


IF TYPETABLCCURTYPEJ sFORMBFILES THEN ERROR(85)3% 


IF SYMKINDCCURSYI]#TERMINAL THEN 
BEGINS 

IF CURSY NEQ RPAR THENS 

00 BEGIN« 

WHILE CURSY@CommA 09 INSYmBQL3% 
IF CURSY*IDENTIFIER THENS 
BEGINS 

SEARCH3S 


IF FOUND THEN’ 


BEGINS 
IF THISIOeIDCLASS#VAR ORS 


THISIDeIOCLASSACONST aNp gOOLEANCTHISIDeFORMAL) THENS 


BEGIN 


VARIABLES FEsTYPETABICCURTYPE) «FORMS% 
IF FeNUMERIC OR FaeFLOATING OR FaCHAR THENS 


BEGIN& 


CHECKS sCHECKOPTION AND FeFLOATINGS& 


WRITEEXPRS GENC™I™%5206)5% 


1F CHECK THEN GENC™CHECK("%s692)8% 
GENC™PREADC"s6s0)3 GENTIOC"F"SFILEIN, 5)3 
GENIOC™V"sFILEIOsS24 GENC ool e7 23% 
GENTOC™I">FILETOeSI3 = GENC* oo Lo 7 23% 


IF FSNUMERIC THEN GENINTC2) ELSES 


GENC so 497)3% 


IF FRFLOATING THEN GENINTC3) ELSE GENINTC1)5% 


01684 
01885 
01886 
01867 
01888 
01889 
01690 
01891 
01892 


01893 
01894 
018695 
01696 


01897 
01898 
01899 


01900 
01901 
01902 


01903 


01904 


01905 


01906 


04907 


PS 


Aas ts Ho 


01908 T 


00001683 
00061883 
00001883 
00001883 
00001883 
00001883 
00001883 
00061883 

00629 

0065 

0066 

0066 

0067 

0068 

0070 

OOT4 

0074 
00001892 
00001898 
000901892 
00081892 

01900 

0100 

0106 

0102 

0104 

0105 

010° 

0109 

0110 

0112 
00001902 
00001902 
00001902 
00001908 
00001902 
00001902 
00001902 
00001902 

0199 
00001903 

0209 
00001904 
00081904 
00001904 

0239 
00081908 
00001905 

0260 
00001906 
00001906 

0284 
00081907 
00061907 

0329 
00001908 
00001908 


END ELSE ERROR(9)3% 


GENC* > "ele 73 


IF CHECK THEN’ 


BEGINS 


GENC™> "919793 


GENINTCCAROCNT)S GENC™)"2h0 705% 


GENINTCTYPETAB3CCURTYPE) D3 


GENINTCCARDCNT)3 GENCT)"» 


END3% 


GENC™3% 9 157)3% 


END UNTIL CURSYZCOMMAS® 


IF CURSYSRPAR THEN BEGIN ERROR(46)3 


IF CURSYeRPAR THEN INSYMBOL33 


END;3% 


IF CHANGELINE THENS 


BEGIN% 


GENCYRLINEC "265273 


GENIDC"V",FILEIDs5)3 


GENIDCMIMSFILEIDs 503 


rt ae 


GENC"s"5457)3% 


GENC™)%5497)3% 


GENINTCTYPETAB2CCURTYPEI 23 GENC ee le? 5% 


GENC™s "a 107 23% 


197 )3% 


END ELSt BEGIN ERROR( g2)3 INSYMBOL ENDS 


END ELSE BEGIN ERROR(8)3 INSYMBOL END3% 


END ELSE BEGIN ERRORC123 INSyMBOL END} 


SKIPCRPAR) END3% 


GENIOC"F",FILEI Ds 5)3 GENC™» "5157 25% 


01909 


01910 


01911 
01912 


01913 


01914 


01915 
01916 


01917 
01918 


01949 
01920 
01921 
01922 


01923 
01924 


01925 
01926 
Qige? 


01928 
01929 


01930 


1-14 


~_ 


a ee ee ee 


00001906 
00091908 
8 


00001909 
00001909 
00001909 
00001909 
0480 
0469 
Q48y 
QOOH191g 
00001912 
00001912 
00001912 
0543 
00061913 
00001913 
00001913 
996 


00001914. 


00061914 
00001914 
ag 


00001911 
0649 
00001900 
00001914 
65a 


00091897 
00001917 
0635 
00001894 
00061918 
0658 
00061891 
0660 
00001920 
69 


000€1888 
0674 
00081922 
0673 
0675 
00001886 
0675 
0676 
0676 
00001927 
00001927 
_ 00001927 
0706 
00061928 


00081928 | 


O72? 
00001929 


00081929 


0748 


q 
00001926 @ 
GENC"END"» 405) 5% 04931 T OQ748 . - 
00001931 
END OF PREADJ% 01932 T 0757 g 
tn 2 | oe 00001879 
18 IS 773 LONGs NEXT SEG 2 
q 
@ 
x . 01933 T 0378 
% 01934 T 0375 
PROCEDURE PWRITECLINEFEED)33 01935 7 0378 a 
VALVE LINEFEED} BOOLEAN LINEFEEDSS 01936 T 0375 
BEGINS 01937 T 0375 
INTEGER FILEIDe Fale LASTSY3% 01938 T 037§ @ 
START OF SEGMENT awaettaewe 19 
POINTER P3% 01939 T 0000 
GENC™ BEGIN '»722)33 01940 ft 0000 a 
‘ Ao 5 00001940 | 
FILEPARAMCOUTPUTFILE)S FILELDt wFILENAMES% 01941 T 0009 
00001944 @ 
00001944 
00001944 
00001944 6 
00001941 
00001941 
00001944 @ 
00001943 — 
00001944 
00001941 ] 
IF TYPETABICCURTYPE) FORMSFILES THEN ERROR(85)3% 01942 T 0062 
IF sYMKINDCCURSYIJZTERMINAL TMENX 01943 7 0065 
BEGINS 01944 T 0066 @ 
IF CURSY NEQ RPAR THEN’ 01945 T 0066 
DO BEGINS 01946 T 0067 
WHILE CURSYsCOMMA DO INSYMBOL3 01947 T 0068 @ 
IF CURSYSALFACONST AND CURLENGTH>7 THENS 01948 T 0070 
BEGINS 01949 T 0072 
GENCTWALFAC%»622)3 GENIDCWFM,FILEI Ds 5)3 GENC sole 75% 01950 T 0072 @ 
of tute 4 00001950 
000861950 
00001950 & 
GENTOC™V"SFILEIOs5 23 GENC esl 7 252 01951 7 0102 © . 
00061951 
00001951 ] 
GENTOO CMIMSFILETO 2 3)3 GENC™o"o407)053 | 01952 T 0123 
00001952 
00001952 ] 
PEtZSTRINGPNTJS 019353 T 0144 
FOR rt"1 STEP 7 UNTIL 80 00% 01954 7 0245 
IF ISCURLENGTH THENS 01955 T O14°P r 
BEGINS ; 01956 T 0447 
IF ALGOLCNT<10 THEN WRITEALGOL3% 01957 T O48 
REPLACE ALGOLPNTSALGULPNT By """, PEP FOR 7, “Hm, Nymgy 01958 7 0150 ® 
. AL GOLCNTPRALGOLCNT?1033 — . 01959 7 0161 
END ELSE GENC"0,%,2,6)5% 01960 T 01363 e 


q 
00001956 @ 
00001960 
GENINTCCURLENGTH)3 GENC™e"%5i597)3% 01961 T O174 
00001961 @ 
00081961 
00001961 
GENINTCCARDCNT)3 GENC™)%o197)3% 01962 T O227 @ 
000801968 
00001962 
00001962 @ 
INSYMBOLsS 01963 T QO280 
END OF ALFACONST ELSEX 01964 T 0280 
00001949 @ 
BEGINS 01965 T 0280 
GENCPPWRITEC™ 75123 GENIDOC "FMS FILEL Ds S33 GENC Ao 4597)3% 01966 T 0284 
00001966 | 
00001966 
00001964 
GENTOC™V"sFILETOs5)3 GENC +5 457)5% 01967 T O31, @ 
00001967 
00001967 
GENIQC™IMOFILEIT O25 23 GENC 25157) 5% 01968 T 0332 @ 
00001968 
00001968 
LASTSY!=CURSYSS 01969 y 0353 a 
EXPRESSIONS FSSTYPETABICCURTYPE) »FORMS% 01970 7 0354 
GENC Hs" ol07)33% 01973 T 0356 
00001971 @ 
IF FeaNUMERIC OR FeFLOATING OR FeCHARK OR FRALFA ORG 01972 T 368 
CURTYPE=BOOLTYPE THENS 01973 T 0368 
BEGINS 01974 7 0369 e 
IF FaNUMERIC THEN GENINTC1) ELSES 01975 T 0370 
00081975 
00001975 @ 
IF FSFLOATING THEN GENINTC2) ELSEX 01976 T 0416 
00081976 
00001978 r 
IF FRALFA THEN GENINT(S) ELSES 01977 T 0464 
00001977 
00001977 ® 
IF FSCHAR THEN GENINTC 4) ELSE GENINTC 323% 014978 T 06 a 
00001978 
00001978 @ 
00001978 
00001978 
GENC"s"ele7)3% 01979 T 0595 @ 
copa tea, Sette de ais is 00001979 | 
IF CURSYSCOLON THENS 01980 T 0604 
BEGINS 01981 T 0605 @ 
INSYMBOLS EXPRESSION; 01982 T 0605 
IF TYPETABICCURTYPE]eFORM NEQ NUMERIC THEN ERROR(17)3% 01963 TY 0606 
GENC™o 197958 01984 T 0609 @ 
suite tikes Aes 00001984 
IF CURSY"COLON THEN’ 01985 7 0618 
BEGINS 01986 T 0619 & 
IF FeFLOATING THEN ERRORC4)3% 01987 + 0619 
INSYMBOLS EXPRESSIONS’ 01988 T 0624 e 
® 


IF TYPETABICCURTYPE JeFORM NEQ NUMERIC THEN ERROR( 17232 
GENC™. "pe 7) 5% 


END ELSE GENC% 74 5% 305 05% 
END ELSES 
BEGIN® 
IF FaFLOATING THEN GENINT(16) ELSES 


IF FRALFA AND LASTSYSALFACONST THEN GENINTCCURLENGTH) ELSE 


IF FEALFA THEN GENINT(7) ELSES 
IF Fa2CHAR THEN GENINTC(L) ELSE GENINTC10)3% 
GENC™ "10% 9404) 5% 

END3% 


END ELSE ERRORC17)3% 
GENINTCCARDCNT)3 GENC™)",1,793% 


END OF EXPRESSIQNSS 
GENC™5%9 197753 
END UNTIL CURSY*COMMAS2 
IF CURSYSRPAR THEN BEGIN ERROR(46)3 SKyP(RPAR) END3X 


IF CURSY@RPAR THEN INSYMBOL3% 
END3% 
FILENAMEM@PILETDs% 
IF LINEFEED THEN’ 
BEGINA. |. a aes 
INTEGER DUMMYs% 


GENCMWLINEC '»652)s GENIOCTFMZFILENAME S95 )S GENC™,%,157 3% 


GENIDC"V"sFILENAMES5)3 GENC"o "9157233 


GENIDC*IMSFILENAME 2593 GENC)%1,793% 


01989 
01990 


01991 


01992 
01993 
01994 
01995 


01996 


01997 


01996 
01999 
02000 
02001 


02002 
02003 
02004 
02005 


02006 
02007 


02008 
02009 
02010 
02011 
START OF SEGMENT 
02012 


02013 


02014 


T 


T 


0622 

0625 
00001990 

0634 
00001988 
00001991 

0643 
00001981 

43 


0646 
00001994 
00001996 

0691 
00001998 
00001995 

737 
00001996 
00001996 

0762 
00001997 
00001997 
00001997 
00001997 

0871 
00001998 

0880 
00081992 

0880 
00001974 


2 
00002004 
00002004 
0000200} 

35 


00061965 
935 


00002003 
0948 
00001946 
946 


00002008 
0949 
0951 
00001946 
0951 
0952 
0953 
0953 


Roce oe S| 20 


0000 
oo002z2012 
00002012 
00002012 

0030 
00002013 


00002013. 


0051 


@eeeeeeeeee#eseees#eeeeeeee@®@ 


END;% 


GENC"END" 9495) 5% 
END OF PWRITE3% 


a 


a 
PROCEQURE FILEHANDLINGCPROCNUM)3 
VALUE PROCNUMS INTEGER PROCNUMS 
BEGIN 
INTEGER Fi 
CASE PROCNUM OF 
BEGIN 3 
GENC™PUT"» 305)3 
GENC"GET'"s 305)3 % 
GENCMRESET%2523)3 & 
GENC"REWRITE"*701)3 & 
GENC"PAGE%s 49473 & 


END} % 


GENC™C%e1 e795 FILEPARAM(O)s % 


IF FILENAME®O THEN ERROR(78)) % 
FtaTYPETABL(CURTYPE J] ¢FORM3& 


IF FeFILES ANDO PROCNUMSS THEN ERROR(80)3% 


Zxeuw 
Ceun 
Lane 
Bear 


Saun 
Rane 
Suen 


GENIDC"F"SFILENAMES9)3 GENC"# "oh e7 3% 


GENIDCWY",FILENAME,5)3 GENC 9 %p157 93% 


FILE HANDLING PROCEDURES! 


1) PUT 
2) GET 


3) RESET 
4) REWRITE 
3) PAGE 


Q2015 T 


20 15 74 LONG» 
02016 T 


02017 T 
19 IS) 975 LONG, 


02018 


08020 


02021 
02022 
02023 
START OF SEGMENT 
02024 
02025 
02026 


02027 
02028 
O2029 
02030 


ee ee ee ee 


02031 


00002014 
00002014 

0079 
00002010 


NEXT SEG 19 


0954 
00002016 
63 


00061937 


NEXT SEG z 


0375 
0375 
0375 
0375 
0375 
Q375 
eeeehe hae 21 
0008 
0006 
0000 
00002026 
0010 
00002027 
0019 
00002028 
0029 
00002029 
0038 
00002030 
0046 
00002025 


START OF SEGMENT weeeetweaw 22 
22 Is 6 LONG» NEXT SEG 21 


02032 7 


02033 
02034 
02035 
02036 


44-444 


02037 7 


0113 


0047 


00002032 
00002032 


00002038 | 


00002032 
00002032 
00002032 
00002032 
00002032 


00002032 _ 


00002032 
00002032 


0115 

Oi? 

ol20.—C 
00002036 
00002034 

44 


00002037 


1 


GENIDC™IMeFILENAME 2503 = GEN("o"2 407) 3% 


GENINTCCARDGNT)4. GENC™)%5 497 )3% 


IF CURSYARPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDIS 


IF CURSYSRPAR THEN JNSYMBOLSS 
ENO OF FILEHANDLINGSS 


r | 
y 3 
PROCEQURE PACK3% 
BEGIN% 
INTEGER ITsTse 


GENC"PACK(%2593) 3% 


INSYMBOLS% 
IF CURSYsLPAR THENS 
BEGIN? 
InwSYMBOL34 
IF CURSYaIDENTIFIER THEN 
BEGIN’ 
SEARCH34% 


IF FOUND THEN% 


x 
BET NT WISIDsIDCLASSSVAR THENS 
BEGIN? i ss. 
TEs TYPETABLLTHISIDsTYPEJ3% 
IF TeFORMBARRAYS THENS 
BEGINS 
IT?STeINXTYPESS 
IF 7YPETABLC TeARRTYPE J) eFORMEZCHAR THEN ERRQR(68)5% 
GENTOC™V" > LO00XTHISLEVELSTHISINOEXs5)54% 


IF THISLEVEL>, AND THISLEVELZCURLEVEL THEN ERROR(5)5% 
GENC 2 %2127)3 GENINTCTYPETAB2CTHISIDs TYPE) 3% 


GENC" "ete? GENINTCTYPETABSETHISID «TYPE 753 


02038 


02039 


02040 


02044 
02042 


21 1S 242 LONGes 


02043 
02044 
02045 
02046 
02047 
START OF SEGMENT 
02048 


02049 
02050 
02051 
02052 
02053 
02054 
02055 


02056 
02097 
02058 
02059 
02060 
02061 
02062 
02063 
02064 
02065 


02066 
02067 


02068 


ee ee ee ee ee ee 


a4 4H HH 


— 4 


00002037 

0162 . 
00002038 
00002038 

01890 
00002039 
00002039 
00002039 

35 


00002040 
0238 
0239 
00002022 


NEXT SEG é 


0375 
0375 
0375 
0375 
0375 
Keath tke 23 
0000 
00002048 
0009 
0009 
0010 
0010 
ool 
0012 
0012 
00002055 
0000205§ 
00002055 
00002058 
0042 
0043 
0043 
0044 
0045 
0046 
0048 
0048 
Q049 
0054 
00002068 
0066 
0069 
00002067 
00002067 
00002067 
0123 
00002068 
00002068 
00002068 


ENO ELSE ERROR(88)3% 
END ELSE ERROR(88)3% 
END ELSE ERROR(4)3% 
END ELSE ERROR(O)3% 
INSYMBOL 38 


IF CURSY@COMMA THEN’ 


BEGIN’ 
GEN Cs %9497)3% 


INSYMBOLS EXPRESSIONS CHECKTYPESCITsCURTYPE 3% 


IF CURSYSCOMMA THEN? 
BEGINS 
GENC% oo 197238 


INSYMBOL 3% 
IF CURSYSIDENTIFIER THENS 
BEGINS’ 

SEARCHS& 


IF FOUND THEN’ 


BEGIN% 
IF THISIDsIDCLASSSVAR OR2Z 
THISIOsIOCLASSSCONST AND BUOLEANCTHISID«aFORMAL) THEN 


BEGINS 
VARIABLES WRITEEXPRSS 


IF CURTYPE>Q THEN’ 
IF TYPETABLCCURTYPE] «FORMZALFA THEN ERRUR(12)3% 
END ELSE ERROR(8)3% 
END ELSE ERROR(C1)3% 
END ELSE ERROR(9)32 


ENO ELSE BEGIN ERRORC89)4 SKIPCRPAR) ENDS% 


QO2069 T 


02070 
02074 
02072 


02073 
02074 
02075 
02076 


02077 


02078 
02079 
02080 


0208) 
02082 
02083 
02084 


02085 
Q2066 
Q2087 
02088 


02089 
02090 


02091 
02092 
02093 
02094 
02095 


02096 


Se ee ee | 


tat 4A 4-4 4 


ee ae 


0177 
00002062 

0178 
00002059 

0179 
00002057 

0181 
00002054 

016¢e 

0188 

01838 

0184 
00002076 

0193 
00002077 
00002077 
00002077 
00002077 
00002077 
00002077 
00002077 

0253 

0253 

0254 
00002080 

0263 ; 

02638 

0264 

0268 
00002084 
00002084 
00002084 
00002064 

0294 

0294 

0294 

0296 

0298 

0299 
00002090 
00002090 
00002090 
00002090 
00002090 
00002090 
00002090 

0378 

0379 

0382 
00002089 

0383 
00002086 

385 


00002083 
6 


00002079 
00002096 


END ELSE BEGIN ERRORC89)3 SKIPCRPAR) ENDJ2 


IF CURSY*RPAR THEN BEGIN ERROR(46)% SKIPCRPAR) ENOJS% 


IF CURSYsRPAR THEN INSYMBOL3% 
END ELSE BEGIN ERRORC3)3 INSYMBOL ENOSS 


GENC*s>"%,157)3 GENINTCCARDCNT)S GENC*)%o157)3% 


ENO OF PACKs% 


x 
PROCEDURE UNPACK3% 
BEGIN% 

INTEGER IT,TA% 


GENC™UNPACK(%s791)3 INSYMBOLIS 


IF CURSY®LPAR THENS 
BEGINS : 
NSYMBOL3  EXPRESSIONS& 
fh CURTYPEDO THEN iP TYPETABy (CURTYPE] ¢FORMAZALFA THEN ERROR(47)3% 
IF CURSY®COMMA THENS 
BEGINS 
GENC"s%197)3 INSYMBOL3% 


IF CURSY®IDENTIFIER THENS 
BEGIN® 
SEARCHsS 


IF FOUND THENS 
BEGINS 
TF THISITOeIOCLASS#VAR THENS 
BEGINS 
TSBTYPETABLCTHISIUeTYPEIS% 
IF TeFORM™ARRAYS THEN’ 
BEGIN® 
ITtaT, INXTYPESS 
IF TYPETABLCTeARRTYPEJ¢FORMACHAR THEN ERROR(88)5% 
IF THISLEVEL>2 AND THISLEVELAZCURLEVEL THEN ERROR(5)3% 
GENIDC"V"s LO0OXTHISLEVEL*+THISINDEXs5)3% 


GENCs"o197)3 GENINTCTYPETABZLTHISID, TYPEJ23% 


23 158 


02097 + 


02098 7 


02099 
02100 


44 


oeiol T 


0210e T 
465 LONGs 


02103 T 
02104 7 
02105 T 
0214060 T 
02107 T 

* 


START OF SEGMENT 


02108 7 


02109 
02110 
02111 
02112 
02113 
02114 
021415 


02116 
C2117 
02118 


44-4 tH Ht 


02119 
02120 
02121 
02122 
02123 
02124 
02125 
02126 
02127 
02128 
02129 


oe ee ee ee ee ee | 


02130 


~ 


0388 


00002075 
00082097 


00002098 


00002051 
00062100 

0397 
00002103 
00002101 
00002104 
00092101 

459 


00002046 
NEXT SEG 2 


0375 
0375 
0375 
0375 
0375 


KeKKM ENED 24 


0000 
00002108 

0009 

0010 

0016 

0014 

0015 

0016 

0017 
0000e115 

0026 

0027 

0027 
00002116 
00002118 
00082118 
00002118 

0057 

0058 

005e 

0059 

00606 

0064 

0063 

0063 

0064 

0068 

0071 


00002128 
0084 


oe e«eoeeoe06ee0e06000e0e 0e0ee0e 008 0® ea ® a @& a 


GENCWe%e1e7)3 GENINTCTYPETAB3SECTHISIDe TYPE )24% 


END ELSE ERROR(88)4% 
ENp ELSE ERROR(88)3% 

END ELSE ERROR(1)3% 
END ELSE ERROR(9)3% 
INSYMBOL3% 
IF CURSY®COMMA THENS 
BEGINS 

GENC%o "e197 3h 


INSYMBOLS EXPRESSIONS CHECKTYPESC ITs CURTYPE23% 


END ELSE BEGIN ERRORC89)4 SKIPCRPAR) ENDS 


END ELSE BEGIN ERROR(89)3 SKIPCRPAR) ENDS% 


IF CURSYFRPAR THEN BEGIN ERRORC89)3 SKIPCRPAR) ENDSS% 


IF CURSY=RPAR THEN INSYMBGL3% 
ENO ELSE BEGIN ERRORC3)S INSYMBOL ENDS 


GENC"s%e197)2 GENINTCCARDCNT)S GENC")"9197)5% 


END CF UNPACK3% 


% 

% 

PROCEDURE NEWDISP; 

BEGINS 
INTEGER T1i3% 


Saws “NEWS "OISPOSE" 


02131 T 


O2132 T 
02133 T 
02134 
02135 
Q2136 
02137 


02138 
02139 


4+ 4444 + 9 


02140 


02141 T 


02142 7T 


02143 T 
02144 T 
02145 7 


02146 T 


02147 T 


344 LONGs 


02146— 
02149 
02150 
02151 
02152 


4—+4 4-4-4 


00002130 
00082130 
00002130 

Oi3a 
00002131 
00002131 
00062131 

92 


00082125 
01493 
000eel22 
0194 
00002120 
96 


00002117 

0197 

0197 

0198 

0199 
00002139 

208 
00002140 
00082140 
00002140 
00002140 
00002140 
00062140 
00082140 

0268 

00062138 
000821434 

70 


00002114 
00002142 
72 


00002143 

274 

0276 
00002110 
00062145 

78 


(00002146 
00062146 


00002146 | 


00002146 
0340 


00002106. 
NEXT SEG 2 


0375 | 
0375 
0375 
0375 


0378 


e@eeeeeeeeeeeeeeeeeeee@®@ 


e 4 
@ START OF SEGMENT #eeettaeew 25 4 
IF CURNAME ae" 30Q00NEW" THEN GENC*NEW( "9 494) ELSES 02153 T 0006 
00002153 
®@ BEGIN GENCYDISPOSE™s754)3 GENC™(% 5457) ENDSS 02154 T 0048 q 
: i 00002154 
00002154 
® 00002154 a 
INSYMBQLS2 02155 tT 0034 
IF CURSY*LPAR THEN 02156 T 0034 
® BEGIN® 02157 T 0032 @ 
INSYMBOL3% 02158 T 0032 
IF CURSYSIDENTIFIER THENS 02159 T 0033 
@ BEGINS 02160 T 0034 € 
SEARCH3% 02161 T 0034 a 
00002161 
@ 00002164 r | 
00082161 
00082161 
@ IF FOUND THEN® 02162 T 64 @ 
BEGINS 02163 T 0065 
VARIABLES % 02164 T 0068 
] IF CURTYPE>0 THEN IF TYPETAB1;CURTYPE) ,FORM@POINTERS THENS 02365 T 0066 r] 
BEGINS 02166 T 0068 
WRITEEXPRE GENC oo 197)3% 02167 T 0069 
od oooe216F @ 
00002167 
00082167 
@ 00062167 6 
00002167 
00002167 
@ o0002167 @ 
_— . 00002167 
TUsSTYPETABACCURTYPE) sPOINTTYPESS 02168 T 0156 
 ] TLtSTYPETABLCT12,SIZE3% 02169 T 0158 e 
IF T1>1023 THEN ERROK(66)3% 02170 T 0159 
GENINTCTL)3 GENC™)%9197 3% 02171 T 0164 
@ 00002171 @ 
00002171 
o00e2i71 
® END gLSe ERROR(81)5% 02172 T 0214 ) 
oon ; . 00002166 
ENB ELSE BEGIN ERROR(4)s INSYMBOL ENDS 02173 T O215 
@ 00082163 @ 
ae — . 00092173 
END ELSE ERROR(9)4% 02174 T O217 
@ 00062160 @ 
WHILE CURSY=COMMA DOX~ 02175 T O218 ; 
BEGIN INSYMBOL3% 02176 T O22e 
@ IF CURSY NE@ IDENTIFIER THEN ERROR(9)3% 02177 T 0220 e 
TF CURSY NE@ RPAR THEN INSYMBOLS% 02178 + 0222 
END3% 02179 T O224 
2] 00002174 @ 
END ELSE BEGIN ERROR(58)3 SKIPCRPAR) ENOS2 | 02180 T rr 
00002157 
r) 00002180 @ 
IF CURSYZRPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDI% 02181 T 0227 ee 
00062181 
 d e@ 
@ e 


IF CURSY#RPAR THEN INSYMBOLS4 
END QF NEWDISP3% 


25 1S 


02182 T 
02183 T 


234 LONG» 


0229 
0234 
00002181 
NEXT SEG 2 


PEEESTSESISLISSSISLISSSLICCSCSSSEOSSOSSSS OSES ESS SSS SSIS ILS PSL ES ESTEL ESSE 


PART 68 THE STATEMENT PARSER, 


De DE BE De DE DE FE dE DE de dE DE 


PROGEQURE STATEMENTS FORWARDJ% 
z 
PROCEDURE ASSIGNMENT3%& 


BEGIN’ 
INTEGER LEFTTYPE% 


LABEL ASSIGN*ZEXITI% 
IF FOUND THEN’ 
BEGINS 
IF THISI pe IDCLASS#VaR QR% ; 
THISI Ds IOCLASSSCONST AND BOOLEANCTHISIDeFORMAL) THENY 
BEGIN’ 
VARIABLES LEFTTYPE$ aCURTYPES% 
ASSIGN! IF CURSY4ASSIGNSY THEN® 
BEGIN ERROR¢28)3 SkIPCASSIGNSY) 3% 
IF SYMKINOCCURSYJSTERMINAL THEN GO TO ExlTs% 


ENDS% 


INSYMBOL#% 
IF TYPETABICLEFTTYPEJeSTRUCT2O THENS 
BEGINS 
ERROR(95)3% 
END ELSE% 


BEGIN 
WRITEEXPRS GENC "332 226) 5% 


IF CHECKOPTION AND TYPETABICLEFTTYPEJ.FORMSCHAR THENS 
CHECKEXPR( TYPE TAB2CLEF TTYPEJsTYPETABSCLEFTTYPE)) ELSE% 


REXALL AAAAARLARALATARARAALARAASARARLACALATARTATLATLARTEATATAAAREARTATA 


a 
% 
a 
& 
a 
| 
a 
a 
4 


02185 
02186 
02187 
02188 
02189 
92190 
02194 
02192 
02193 
02194 
02195 
02196 
02197 
02198 
02499 
02200 
02201 
02202 
START QF SEGMENT 
92203 
02204 
02205 
02206 
02207 
02208 
02209 
02210 
O2211 
o2212 
02213 


02214 
02215 


02216 
O2ai7 
02218 


02219 
02220 


02221 
02222 


44 Aan HATH HHA ek A ae tt et 


—~ 


375 
375 
375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
037§ 
0375 
0375 
0375 
0378 
0378 


ooo 


eethheten 26 


0008 

0000 

0000 

0008 

0002 

0004 

0005 

0006 

0007 

0009 

0014 
Co0022i4 

0014 

0014 

0013 

0018 

0014 
oo000z216 

0044 

0015 
0o0g2220 
00002220 
00002220 
00002220 
oo0e2220 
00002220 
00092220 
00002220 

0102 

0104 
00002222 
00092222 
00082222 
00062228 
00002222 
00002222 
000e2222 
000e2222 


EXPRESSTONs% 
WRITEEXPRIS 


CHECKTYPESCLEFTTYPEsCURTYPE )3% 


END3% 
END ELSEX 


BEGIN % FUNCTION ASSIGNMENT, 
IF yHIsLEvELACyRLEVEL@l OR FHISINDEX#CURF UNC THEN ERROR(5)33 
GENTOC#V"s LOCOXTHISLEVEL+THISINDEX2S)3 LerTTYPetaTHISID,TYPEs% 


INSYMBOLS GO TQ ASSIGNs3% 
END3% 


END ELSE% 


BEGINS = si. 

SKIP(ASSIGNSY)3% 

If CURSY@ASSIGNSY THEN GO TO ASSIGNS% 
ENDSS. | 


02223 
02224 


02225 


02226 
02227 
02228 


02229 


02230 


02231 
02232 


02233 


02234 
02235 
02236 
02237 


4-4 


00002222 
00002222 
00002222 
00002222 
00082222 
O00e222¢ 
00092222 
000¢2222 
o00e2222 
00002222 
00002222 
00002222 
00002222 
00002222 
000e2222 
00002222 
ooce2z222 
00082222 
00002222 
Q0002222 
0002222 
00002222 

0183 

0184 
ooce2224 
000@2224 
00002226 
00082224 
00002224 
00002224 
00002228 

0262 
00002225 
000e2225 
00002225 
o0002z22s 
00002225 


00002225. 


00002225 

0322 
00002219 

0322 
00002208 

0322 

0323 

0328 


0002230. 
40 


0344 
000¢2228 

0344 
00002205 

0344 . 

0343 

0343 

0345 — 


00062234 


EXIT&2% 
END OF ASSIGNMENT3& 


26 IS 


x 
% 
PROCEQURE COMPSTATI4 
BEGINS 
INTEGER BEGINNUMS% 


START OF SEGMENT 


LABEL STATM3% 
BEGINNUMS sNUMBEGINS# sNUMBEGINS+13 MARGING B8,BEGINNUM) 3g 


GENC™BEGIN'» 623)3% 
00 BEGINS 
IF CURSY®SEMICOLON OR CURSY=BEGINSY THEN INSYMBOL 5% 
STATMS STATEMENTS 
GENC™2%9127)03% 
IF CURSY®ELSESY THEN BEGIN ERROR(20)3 INSYMBOLS GO STATM ENDS 
IF SYMKINDOCCURSYIsINITIAL THEN BEGIN ERROR(21)3 GO STATM ENDS 
END UNTIL CURSY*SEMICOLON3% 
IF CURSYZENDSY THENS 


BEGIN ERROR(24)4 SKIPCENDSY23% 
IF CURSYZENDSy THEN BEGIN INSyMBOLs GO TO STATM ENOS% 


ENDS 
GENC" END"s598)5 MARGING™ E"*BEGINNUM) SS 


INSYMBOL3% 
END OF COMPSTATs3 


27 15 


x 
x 


PROCEDURE IFSTATIS 
BEGINS 


LABEL EXIT;% 


START OF SEGMENT 


GENCT IR" 2 3,6)5% 


02238 T 0348 
02239 T 0348 
00002203 
352 LONG, NEXT SEG 2 
02240 T O375 
02241 T O378 
02242 T 0375 
02243 T 0375 
02244 7 0375 
wHkER KE 27 
02245 T 0000 
02246 T 0006 
02247 T 0000 
00002247 
00002247 
02248 T Q020 
00002248 
02249 tT 0029 
02250 T QO029 
02251 7 0034 
Q2252 T 0030 
000@2252 
02253 T ay 
00002253 
O22e54 T 4aP Don 
00002254 
02255 T O49 
00002249 
02256 7 51 
C2257 T 0054 
02258 T 0083 
00002258 
02259 T 005 
000e2257 
02260 T 6 
00002260 
00002260 
00002260 
02261 T 0083 
02262 7 00838 
00002243 
88 LONG, NEXT SEG 2 
02263 T 0375 
02264 T 0375 
02265 1 «+0375. 
02266 T 0375 
02267 T 0375 
seek hahee 28 
02268 T 0000 


INSYMBOL3 BOOLEXPRs% 


IF CURSYATHENSY THEN 
BEGIN IF CURTYPE>0 THEN ERROR(27)3% 
SKIPCTHENSY ) 3% 
IF CURSY4THENSY THEN’ 
BEGIN IF CURTYPEs0 THEN ERROR(27)3% 
IF SYMKINDECURSYJsTERMINAL THEN GO TO ExITéss 
END$ ENDS 


GENC” THEN» 693) 35% 


INSYMBOL$ STATEMENTS% 
IF CURSYSELSESY THENS 
BEGIN GENC ELSE"s603)3 INSYMBOL; STATEMENT END3% 


EXIT#2 
END OF yFSTATSY 


% 


a 
PROCEDURE CASESTAT#% 


BEGINS 
CEF INE CASEHASH(N)&(N) 9039339) MOD MAXCASES#3% 


INTEGER ARRAY CASETABLO;MAXCASES)3% 
INTEGER CASENUM*CASETYPESNCASEL ABSs TEMPV ARNUM» CONV aL» CONTYPEsCoTI% 


BOOLEAN ZEROLABsFIRSTI£ 
CASENUMS @NUMCASES#tsNUMCASES4#13 MARGINC"CB",CASENUM) 3% 
TEMPVARNUMs@NUMTEMPS SaNUMTEMPS413% 


IF TEMPVARNUM>MAXTEMPS THEN ERRORC16)3% 
GENC"BEGING»653)3 GENIDC"T™e TEMPVARNUMs2)3 GENCT38%,256)5% 


START OF SEGMENT 


02269 T 


02270 
02271 
O2272 
02273 
02274 
02275 
02276 


Oe eee ioe ee ee 


02277 


02276 
02279 
02280 


444 - 


02281 
02282 


4-4 


146 LONG» 


02283 
02284 
02285 
02286 
02287 


02288 
02289 
02290 
02291 
02292 


ee en ee | 


02293 
02294 
02295 


4+ 


00002268 
0009 
00002269 
00002269 
00002269 
00002269 
00002269 
00002269 
00002269 
00002264 
00002269 
00002269 
00002269 
00002268 
00002269 
00002269 
00002269 


00002274 

00002274 
0121 

00082277 
0 


00002280 
00002260 
0142 
0143 
00002266 
NEXT SEG 2 


0375 
0375 
0375 
Q375 
03735 
ced he hee 29 
0000 
0004 
0004 
0004 
QQ04 


00002292 


00002292 
00214 
0028 
0028 


INSYMBOLS EXPRESSIONSS 
GENC"3"si07)3 CASETYPES@CURTYPESS 


IF TYPETABLECCASETYPE),FORM2FLOATING THEN’ 
BEGIN ERROR(17)3 CASETYPES=O ENDS% 


IF CURSYZOFSY THEN% 

BEGIN IF CASETYPE>0 THEN ERRORC18)3% 
SKIPCOFSY)3% 
IF CURSysOFSy THEN INSYMBOL ELSEX 
IF CASETYPE#O THEN ERROR(18)3% 

END ELSE INSYMBOL3% 


CG BEGIN’ 
WHILE CURSY#SEMICOLON DO INSYMBOL3% 
FIRSTssTRUESS 
IF CURSYZENDSY THENS 
BEGINS 
GENCIF% 2 30603% 


DO BEGIN% 
IF FIRST THEN FIRSTS2FALSE ELSE INSYMBOLSS 
CONSTANTCCONVAL*CONTYPE 3% 


IF CONTYPE>O THEN’ 

BEGIN’ 
IF CASETYPE*O THEN CASETYPES3CONTYPE ELSES 
CHECKTYPESCCASETYPEsCONTYPE )4% 


GENIDC "Ts TEMPVARNUM*22)3 GENCMaMede7)3 GENINTCCONVAL ISS 


02296 
02297 


02298 
02299 


02300 
02301 
02302 
02303 
02304 
02305 


02306 
02307 
02308 
02309 
02310 
02311 


02312 
02313 
02314 


02315 
02316 
02317 
02318 


02319 


Se ee | 


+41 4 1 4 


4-4 


444-4 


00002295 

00092298 

00002295 
055 


0056 
00002297 

0066 

O06F 
00002299 

0066 

0076 

0073 

0073 

0075 

0080 
00002304 

0084 

0081 

0083 

0084 

0084 

0085 
00002311 

0094 

0095 

0098 
00082314 
00002314 
00062314 
00002314 
00002314 
00002314 
00002314 
000023148 
00002314 
000023146 
00092314 
00002314 
00002314 
00002314 
00002314 
00002314 
00002314 
00002314 
00082314 

0186 

0186 

0187 

018¢ 
00002316 
00062318 
00002318 
00042316 
000e2318 
00002318 


00062318 


0249 


@®eeeeeeee#d8@e@eesee68ee0e 80 06060 06 @ 


NCASELABS 3 sNCASELABS 413% 
IF NCASELABS<MAXCASES THEN2 


BEGINS 
IF CONVAL®0 THEN’ 
Ween THEN ERROR(31) ELSE ZEROLABYSTRUE ELSES 
BEG 
TS®CASEHASH(CONVAL 23% 
FOR CasCASETABLCT) WHILE C¥CONVAL AND CAO 00% 
T3®I1F T#O THEN MAXCASES ELSE T#13% 
IF CzO THEN ERROR( 31) ELSE CASETABLT]#*CONVALS2 
ENDS% 
END ELSE JF NCASELABSSMAXCASES THEN ERROR(30)3% 
IF CURSY™COMMA THEN GENC™ ORM5q95)33% 
END3% 
END UNTIL CURSYACOMMA3S 
GENC" THEN"s653)3% 
IF CURSysCOLON THEN BEGIN ERROR(26)% SKIPCCOLON) ENO3x 
IF CURSY*COLON THEN INSYMBOLSS ~ 
STATEMENT3% 


IF CURSYZSEMICQLON AND CURSYZENDSY THENS 
BEGIN ERROR(21)3 SKIPCSEMICOLON) ENDSS 


ENDS% 
IF CURSYeSEMICOLON THEN GENC™ ELSE%,6,3)35% 
END UNTIL CURSYASEMICOLONS& 
IF CURSYFENDSY THEN BEGIN ERRORC24)3 SKIPCENDSY) END3% 


GENC” END"s5#4)5 MARGINC"CE™* CASENUM) 3% 


NUMTEMPS S@NUMTEMPS@ 43% 
INSYMBOLIS 
END OF CASESTAT3% 


i Oxia en aes ate Leta’ 
PROGEDURE WHILESTATS% 


29 1S 


02320 
02321 
02322 
02323 
02324 
02325 
02326 
02327 
02328 
02329 
02330 


02334 
02332 
02333 
02334 
02335 
02336 
02337 
02339 
02349 
02341 
02342 
02343 
02344 


02345 


02346 
02347 
02348 


ae tt st 


4 «4 


4 4 4 + 


oe | 


T 
T 
T 


423 LONG» 


02349 
02350 


T 
T 


00002319 
00002319 
00002319 
00002319 
Q313 
0314 
0315 
0315 
0316 
0319 
03206 
032% 
0326 
0329 
0333 
00002325 
33 


00002322 

336 
00062332 

0346 
00002316 

46 


00082312 
0347 

00002338 
0356 


00002336 
$99 
0364 
0364 
0363 | 
00002340 
0368 
00002310 
365 
00002342 
5 


00002306 
0376 
00002344 
79 


00062345 


00002345 | 


0000234% 
0406 
0408 
0408 
00002284 


NEXT SEG 2 


0375 
0375 


02351 7 Oa75 


BEGIN’ 
LABEL STATMsEXITIA 


GENC"WHILE' »65323% 
INSYMBOL3 BOOLEXPR&2 


IF CURSY*DOSY THEN 
BEGIN IF CURTYPE>0 THEN ERROR(49)3% 
SKIPCOOSY)3% 
IF CURSYZpOSY THEN’ 
BEGIN IF CURTYPESO THEN ERROR(19)5% 
GO TO yF SYMKyNOCCURSYJ# INITIAL THEN STATM ELSE EX]Ts% 
END3 END3% 


GENC™ DO%s455)3% 


INSYMBOL3% 
STATMS STATEMENTS 
EXIT$% 

END CF WHILESTATs% 


x 


a Se anaes 
PROGEDURE REPEATSTAT32& 
BEGINS 

INTEGER REPNUM3& | 


LABEL NEWTRY3% 
REPNUM 1 @NUMREPS § SNUMREP S413% 
MARGINC(* RsREPNUM)S% 


GENC*"DO%,3,6)3 GENC"BEGIN'»553)32% 


Q2352 T 


02353 7 0375 


START OF SEGMENT 
02354 


023595 


02356 
02357 
02358 
02359 
02360 
02361 
02362 


92363 


02364 
02365 
02366 
02367 


wekakthy 


T 0000 
T 0009 


Qile 
0113 
0415 
0116 
0117 
0119 
0125 


ee 


4 


Ol2s 


0134 
0135 
0136 


4 44 


30 IS 142 LONGs NEXT 


02368 
02369 
02370 
02374 
02378 
START OF SEGMENT 
02373 
02374 
02375 
02376 


02377 


0375 
0375 
0375 
0375 
0375 
weeeneen 
0008 
0000 
0000 
0004 


ee ee) 


Q375 


wee 3¢ 
00002354 


00002355 
00002355 
00002355 
00062355 
00082355 
00002355 
00002355 


00002355. 


00002355 
00082355 


00062355. 


00002355 
00062355 
00002355 
00062355 


00002360 
00002357 


00062363 
34 


00002352 
SEG 2 


tan 3i 


00002375 
00002378 
20 


00092377. 


00002377 


00 BEGIN% 
INSYMBOL3% 

NEWTRY! STATEMENTS & 
GENC™3S 9197 23% 


IF CURSYSELSESY THEN BEGIN ERROR(20)3 JNSYMBOLS GO NEWTRY ENDJ% 
IF SYMKINOCCURSYJSINITIAL THEN BEGIN ERROR(24)3 GO NEWTHKY ENDS 
END UNTIL CURSY4SEMICOLONS% 


IF CURSYZUNTILSY THEN’ 
BEGIN& 


ERROR(22)5% 
WHILE CURSYZUNTILSY AND SYMKINDECURSYIAINITIAL pus 


BEGIN INSYMBOLS SKIPCUNTILSY) ENDS3 


IF CURSYZUNTILSY THEN GO TO NEWTRYS% 
ENDS% 


GENC® BND%,524)5 GENC "UNTIL + 603)3 MARGING™ UM*sREPNUM)SS 


INSYMBOLS BOOLEXPRs% 


END OF REPEATSTAT3% 


% 
% | | 
PROCEDURE FORSTAT3% 
BEGINS 
INTEGER VARTYPEsVARNUMSLLIMSULIMES 


BOOLEAN DOWNS 
LABEL STATM34% 


START OF SEGMENT 


02378 T 0038 
02379 TT O038 
02380 T 0038 
02381 T 0039 
00002384 
02382 T 048 
0006236¢% 
02383 T 0055 
00062383 
02384 T 057 
000902378 
02385 T Q059 
02386 T 0059 
02387 T 0060 
02388 T Q064 
02389 T 0063 
00002389 
02390 T 0065 
02391 T 0066 
00002386 
02392 T 0066 
00002392 
00002392 
00062392 
00002392 
02393 T O402 | : 
00082393 
00062393 
00062393 
00002393 
0006239, 
000e2393 
00002393 
00062393 
00002393 
00062393 
00002393 
00082393 
00002393 
00002393 
00062398 
02394 T O208 
00002371 
213 LONGs NEXT SEG 2 
02395 T QO375 
02396 T 0375 
02397 T 0375 
02398 ~ 90375 
02399 T Q375 
Tre reres © 3? 
02400 T Q000 
02401 T 0000 
Q2402 T 0000 


< 


GENC"BEGIN's 623) 5% 


INSYMBQL 3% 
IF CURSYSIDENTIFIER THEN 
BEGINS 

SEARCH3% 


If FOUND THEN’ 
BEGINS 
VARNUMt SLOOOXTHISLEVEL*THISINOEXs2% 
IF THISIDeIOCLASSSVAR ORS 


THISIDeIOCLASSSCONST AND BOOLEANCTHISIDeFORMAL) THENS 


BEGINS 


IF THISLEVEL?2 AND THISLEVEL<CURLEVEL THEN ERROR(39)3% 


IF THISLEVELOCURLEVEL THEN ERROR(8323% 
VARTYPES®THISIDe TYPES 

IF TYPETABLE VARTYPE J] «FQRMSCHAR THENS 
BEGI 


END g¢hSe BEGIN ERROR( 3223 VARTYPESSO ENDSS 


END ELSE ERROR(8)3% 
END ELSE ERROR(1)32% 
END ELSE ERROR(C 923% 


INSYMBOL 3% 
IF CURSYFASSIGNSY THEN’ 
BeGIN ERROR(28)+% 
SKIPCASSIGNSY)3% 
IF CYRSY#ASSIGNSY THEN INSYMBOL ELSE% 
IF SYMKINOCCURSYJ*INITIAL THEN GO TQ STATM3& 
END ELSE INSYMBOL3% 


GENIDC™y"syARNUM95)3 = GENC™O% 9 15 793% 


IF cHECKOPTION THEN CHECKEXPRCLLIM*ULIM) ELSE EXPRESSIONS’ 


N& 
LLIM$sTYPETABZCVARTYPE JS ULIMPSTYPETABSCVARTYPE I33% 


02403 


02404 
02405 
02406 
02407 


g2408 


- 02409 


02410 
02411 
02412 
02413 
02414 
02415 
02416 
g2417 
02418 
02419 
02420 


02421 
02422 
02423 


02424 
02425 
02426 
0242? 
02428 
02429 
02430 


02434 


02432 


+4 


4444 


Se ee eee 


ee 


~ 


0000 
00002403 
0009 
0009 
0010 
0010 
00002407 
00002407 
00002407 
00002407 
0040 
Q044 
0044 
0043 
0044 
0047 
0047 
0058 
0052 
0053 
0055 
0055 
00S? 
00002418 
00002420 
0059 
00002413 
61 
00002409 
062 
00002406 
63 


0064 

0064 

0066 

0066 

0068 

0070 
000024264 

0071 
00002431 
00002431 

0Q9a 
00062432 
00002432 
00082432 
00002438 
00062432 
00002432 
00002432 
00062432 
00062432 
00092438 
0006243g 
00002432 
00082432 
00002432 


@® @® @eeeeeeeeee#eeee#eeeeeee @e@ 


WRITEEXPRIX 


GENC™3%5157)5% 
IF VARTYPE20 THEN VARTYPES®CURTYPE ELSE CHECKTYPESCVARTYPE*sCURTYPE)3 


NUMTEMPSS#NUMTEMPS413 YF NUMTEMPS>MAXTEMPS THEN ERROR(16)3% 
IF CURSY#ToOSY THEN INSYMBOL ELSEX 
IF CURSYSDOWNTOSY THEN BEGIN DOWNesTRUES INSYMBOL END ELSEX 


BEGIN IF CURTYPE>0 THEN ERROR(23)95% 
SKIPCTOSY)3% 
TF CURSYSTOSY THEN INSYMBOL ELSE 
BEGIN IF CURTYPE=O THEN ERROR( 23) 5% 
IF SYMKINDUCURSYJ#INI TIAL THEN GO TO STATM3% 


ENDS ENDI% 
GENIDC"T@sNUMTEMPS22)3 GENC OMe 197958 


IF CHECKOPYION THEN CHECKEXPRCLLIMs LIM) ELSE EXPRESSIONS 


02433 


02434 
02435 


02436 
02437 
02438 


02439 
02440 
0244) 
02442 
02443 
02444 


02445 


g2446 


44-4 


+4 44 4 


00002432 
00082432 
00002432 
00002438 
00002432 
00002432 
00002432 
00002432 
00002432 
00002432 
00002432 
00062432 
00062432 
00002432 
00002432 
00082432 
0170, 
00002433 
00002432 


00002433. 


00002433 
00002433 
00002438 
00092433 
024g 
00002434 
57 


00002435 
00092435 
00002435 
00082435 
00002438 
00002435 
00002435 

0319 

0322 

0324 
00002438 

Q327 

0329 

0330 

Q332 

0334 

0336 
oo002 44g 
00002439 

0336 . 
00002445 
00002445 

0357 
00002446 
00082446 


00002446 | 


00002446 
00002446 


o000a 446 


00002446 


@ 


WRITEEXPR3 


GENC™3"p197)5% 
If VaRTYPesO THEN VaRTYPES*cURTYPE ELSE CHECKTYPESCVaRTYPe*s CURTYPE)3 


IF CURSY4DOSY. THEN’ 

BEGIN IF CURTYPE>0 THEN ERROR(19);3% 
SKIPCDOSY)s% : 
IF CURSY=pOSY THEN JNSYMBOL ELSEX 
IF CURTYPE=0 THEN ERRORC19)3% 

END ELSE INSYMBOL3% 


GENC™FOR"s495)3 GENIDO™V"sVARNUMS5)3 GENC% oo go 7 5% 


GENIOC™yV"sVARNUM25 23 = GENC™ “oho 7 3% 


IF DOWN THEN GENC"DOWNTO"s7¢2) ELSE GENC"UPTO"s504)3% 


02447 


02448 


O2a49 


02450 
0245] 
02452 
02453 
02454 
02455 


02456 


02457 


02458 


ee ee 


0434 


0512 
0521 


0583 
0583 
0586 
0387 
0588 
0594 


0599 


Q62p 


0643 


00002446 
00002446 
00002444 
00062446 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446 
000e244% 
00082446 
00002446 
00002446 
00002446 
000@2446 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446 
00002446 


00002447 
00062447 
00082447 
00062447 


00002447 


00062447 
00002447 


00002448 


00002449 
00002449 
00002449 
00002449 
00002449 
00002449 
00002449 


00002451 
00002456 
00062456 
00002456 


o00g2457 
00062457 


00002458 


GENIDC"T"sNUMTEMPSs2)3 GENC” 00% 455)3% 


STATM$ STATEMENTS& 
GENC™ END%s594)4% 


NUMTEMPSS2NUMTEMPS* 13% 
ENO OF FORSTAT 3% 


x 
x 
PROCEDURE GOTOSTATS& 
BEGIN 
INTEGER 13% 


INSYMBOL 3% 

IF CURSYSINTCONST THEN 

BEGIN J&3NUMLABSI2 
WHILE I21 AND LABTABCIJ+LAByALZCyURVAL O00 Itslei3% 
IF 120 THEN ERROR(15)3% 
GENC"GO%,3,6)% GENIDC™L®,CURVALS4 23% 


INSYMBOL 34 
END ELSE ERRORC10)3% 


END OF GOTOSTATS% 


y | 
x 
PROCEDURE WITHSTAT34 
BEGIN 
INTEGER STARTLEVEL*VERYFIRSTWITHSYMs [3% 


REAL Ds% 
STARTLEVELSaTOPLEVELS VERYFIRSTWITHSYMSaNWITHSYMS3% 
DO BEGINS 
INSYMBOL33% 
IF CURSYaJDENTIFIER THEN 
BEGIN 
SEARCH33 


IF FOUND THENS 


02459 


02460 
02461 


02462 
02463 


Se ee i | 


32 1S 703 LONG, 


02464 
02465 
02466 
02467 
02468 
START OF SEGMENT 
02469 
02470 


02477 


te at st 


T 


33 1S 36 LONG» 


02478 
02479 
02480 
02481 
02482 
START OF SEGMENT 
02483 
02484 
02485 
02486 
02467 
02486 
02489 


02490 


ee ee ee ee 


00002458 
Q665 
00002459 
00002459 
0686 
0686 
00002461 
95 


0696 
000023948 


NEXT SEG r3 


0375 
0375 
0375 
0375 
0375 


eeektakee 33 


0000 

0000 

0001 

0002 

0007 

0009 
00082474 
00002474 


00002471 
0033 
00002467 


NEXT SEG é 


0375 
0375 
0375 
0375 
0373 


RENEE HES 34 


0000 

0000 

000, 

0002 

0002 

0008 

0003 
00002489 
00002489 
00002489 
00002489 

003a 


BEGIN% 
IF THISIDeIDCLASS#VAR THENS 
BEGINS 
VARIABLEs2% 
IF CURTYPE>0 THENS 
IF TYPETABICCURTYPEJeFORMSZRECORD THEN ERROR(98)3% 
IF SIMPLEVARIABLE THENS 
BEGIN PUTSYMC®EC")3 [NSIDEBRACKETS&8sTRUE ENDs x 


IF TOPLEVEL<MAXLEVEL THENZ 
BEGINS | 
TOPLEVELSSTOPLEVEL 4133 
DeNAMETABS*TYPETABICCURTYPE) ,RECTABSS 
DeRECTYPES @CURTYPES% 
D ,NUMPNTRSINWITHSSNUMPOINTERSSS 
DeFIRSTWITHSYMSSNWITHSYMS 3% 
DeBRACKETSINWITHS#REALCINSIDEBRACKETS) 3% 
IF NWNITHSY mS+yUmSYMS2mAXWITHSYMS THEN ERRUR(O3) ELSES 
FOR Tse1 STEP 1 UNTIL NUMSYMS DOX 
BEGINS 
WITHTABUCNWITHSYMS) #aSYMTABLCII32% 
NWITHSYMS#=NWITHSYMS 013% 
END3% 


DeLASTWITHSYMS anWITHSYMS#4 3% 
DISPLAYCTOPLEVELJ3*03% 
END ELSE ERROR(84)3% 


ENO ELSE BEGIN ERRORCG)s INSYMBOL END5% 
END ELs& BEGIN ERRORC1)3 INSYMBOL ENDS 


EnD ELSE BEGIN ERROR(9)3 INSYMBOL ENDS 


NUMSYMS4803% 
NUMPOINTERS $= 3% 
END UNTIL CURSYFCOMMA32 


IF CURSYF DOSY THENS 
BEGIN ERROR(19)3 SKkIPCDOSY)4% 

IF CURSY#DOSY THEN :NSYMBOLS2 
END ELSE INSYMBOL3S% 


STATEMENTI2£ 
TOPLEVELsssSTARTLEVELS NWITHSYMSs@VERYFIRSTWITHSYM33 
END OF WITHSTAT34% 


34 1S 


02491 
02492 
02493 
02494 
02495 
02496 
02497 
02498 


02499 
02500 
02501 
02502 
02503 
02504 
02505 
02506 
02507 
02508 
02509 
02510 
025113 
02512 


02513 
02514 
02515 


02516 


02517 


02518 


02519 
02520 
02521 


02522 
02523 


02524 
02525 


02526 
02527 
02528 


a ee Bee ee ee ee | 


oe ie ee ee ee ee ee ee ee 


~~ 


a ae | 


0032 
0032 
0034 
0034 
0035 
0035 
0039 
0039 
00002498 
00082498 
00002498 
00002498 
0048 
0048 
0049 
0050 
0053 
0054 
0056 
0058 
0060 
0062 
0064 
0064 
0065 
0066 
00002509 
69 


O07, 

0072 
00002500 

73 


00002493 
00082516 
0075 
0000249) 
00002517 
0077 
00082488 
00062518 
0079 
0079 
0086 
00002485 
O84 
0082 
0084 
0086 
00002523 
087 , 
0 
A) 


O08? 
0089 


0000246) 
93 LONGs NEXT SEG @ 
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% 
- 
PROCEDURE STATEMENT #% 
BEGIN’ 
INTEGER 13% 


LABEL LABFOUNDs& 


IF CURSYSINTCONST THEN 
BEGINS 


Z *ee LABELED STATEMENT «we 


FOR IssFIRSTLAB STEP 1 UNTIL NUMLABS DOS 
IF LABTABC IJ +L ABVAL=CURVAL THENS 
BEGIN IF LABTABCI J] sLABDEF=1 THEN ERROR(C31)3% 


LABTABLCIJ.LABDEFS#13% 
GO TO LABFOUND3% 
END3% 


ERROR(15)3% 


LABPFOUND!? GENIDCPLY,CURVAL,4)3 GENC™IM,1,7 5% 


INSYMBOL3% 
IF CURSY*COLGN THEN? 
BEGIN ERROR(C26)3% 


SKyP(COLON); JF CURSYScCOLON THEN INSYMBOL 34% 


END ELSE INSYMBOLs% 


END3% 
x 
COMMENT **# START OF STATEMENT wee 3% 
x :. 
IF CURSYSIDENTIFIER THEN 
BEGINS 
SEARCHS% 


If FOQUNO THENS 
BEGINS © 
IF THISIOsIOCLASS&VAR ORS 


THISIDeIOCLASS=CONST aND BOOLEANCTHISID.FORMAL) ORS 
THISIDeITOCLASS@FUNC THEN ASSIGNMENT ELSES 
IF THISIDeIOCLASSSPROC THENS 


BEGINS 
TE THISLEVEL#O THEN 
BEGINS 
IF CURNAMEL®"50WRITE” 
IF CURNAME1®”"7WRITEL” 
CURNAME 28" Q0Q000N" 

IF CURNAMEL®" 400REA0" 
IF CURNAME LS"6READLN" 
IF CURNAMEL®"400P aGeE” 
IF CURNAMEL#"3000GET" 
wip CURNAME Le" 3000PUT" 
IF CURNAMELs"SORESET" 


THEN 
AnD& 
THEN 
THEN 


THEN. 


THEN 
THEN 
THEN 
THEN 


& #we INTRINSIC PROCEDURE *#* 


PWRITE (FALSE) 


PWRITEC TRUE) 
PREADCFALSE) 
PREADC TRUE) 
FILEHANDLING(S) 
FILEHANDOLING(2) 
FILEHANDLING( 1) 
FILEHANOLING(3) 


ELSE% 


ELSE% 
ELSE% 


ELSex 


ELSE% 
ELSES 
gLSes 
EL SEx 


02529 
02530 
02531 
02832 
02533 
START OF SEGMENT 
02534 
Q2535 
02536 
02537 
02538 
02539 
geS4Q 
02541 
02542 
02543 


02544 
02545 


02546 
02547 
02546 
02549 
02550 


02551 


02552 
02553 
02554 
02555 
02556 
02557 


02558 
02559 
02560 
02561 


02562 


02563 
02564 
02565 
02566 
02567 
02568 
02569 
02570 
Q2571 
02572 
02573 
02574 
02575 


et et 


+4 


ee ee ee en 
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0375 
Q375 
0375 
0375 
Q37s5 


aeehhukes 35 


0000 

0000 

0000 

0000 

0001 

000a 

000s 

0006 

0009 

0009 
00002540 

0019 

0012 
00002545 
00002545 

0034 

Q034 

0035 

0036 

0039 
00062548 

Q040 
00092537 

Q040 

0046 

0040 

0040 

0040 

0044 
00002557 
00002857 
00002557 
00002557 

0070 

0070 

0070 

0072 

0074 

0077 

Q07@ 

0079 — 

0086 

0080 

0082 

0064 

0087 

009) 

0095 

0099 

0103 

010° 


IF 


IF 
IF 
IF 
IF 


_GURNAME2s"0Q0000E" 


CURNAME 4®"7REWRIT” 
CURNAME2="000000€" 
CURNAME1®"3Q00NEW” 
CURNAME1®"7D7SP0S" 


CURNAME1®"GOOP ack" 
CURNAME Le"6UNPACK” 


END ELSE PASSPARAMS3% 


WRITEEXPRIS 


AND 
THEN FILEHANOLING(4) 
THEN NEWOISP 

ANO% 


THEN NEWDISP 


THEN PACK 
THEN UNPACK 


END ELSE BEGIN ERROR(13)4 SKIPC99) ENDS% 


ENO OF IDENTIFIER ELSE% 


IF 
IF 
IF 
If 
IF 
IF 
IF 
IF 
IF 


END ELSE BEGIN ERRORC1)3 ASSIGNMENT ENDS% 


CURSY*prGINSY THEN cOMPSTaT ELSES 
CURSYSIFSY THEN IF STAT 
CURSY®CASESY THEN CASESTAT ELSE% 
CURSYSWHILESy THEN WHILEST 
CURSY*REPEATSY THEN REPEATSTAT ELSES 
CURSY*FoRSY THEN FORSTAT 
CURSYSWITHSY THEN WITHSTA 
CURSY*GqTOSY THEN GOTOSTAT ELSE% 
SYMKINDECURSYIZTERMINAL THENS 

BEGIN ERROR(13)3 INSYMBOL; SKJPCSEM]COLON) END3% 


END OF STATEMENTS 


ELSEX 
AT ELSEX 


ELSE* 
T ELSE 


ELSES 
ELSEX 


ELSEX 
ELSES 
ELSE ERROR(O)33 


02576 
02577 
02578 
02579 
02580 
02581 
02562 
02583 


02584 


02585 


02586 


02587 


02588 
02589 
02590 
02591 
02592 
02593 
02594 
02595 
02596 
02597 


02596 


4 Atanas aS 


a Ee ee 


T 
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00002566 
0136 
000¢2584 
00002584 
00062584 
00002584 
00002584 
00082584 
00002584 
0215 
00002564 
000082585 
0217 
00002559 
00002586 
0219 
00002556 
0219 
0224 
0223 
0226 
0228 
0238 
0232 
0235 
0237 
0238 
00062597 
244 
00002532 
NEXT SEG 2 
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x 
r 4 
% 4‘ 
p 4 % 
| PART 7¢ TYPE DECLARATIONS, a 
x% RAPER SARK ANEenaem % 
% | 
x a 
x a 
x x 
x 


RRLARALARARLALAALLARARARALT ARAL ART ATATALALARLALATLAAABALLAVAAAATALTATL 


x 

REAL VALX1sVALX25% 
INTEGER TYPEX1,TYPEX23% 
BOOLEAN PACKED33% 

x 


PROGEQURE FIELQLISTCRECT ABs FIRST ADDRaL AST ADORIs% 
VALUE RECTABsFIRSTADORS% 

INTEGER RESTAB,F IRSTADDReLASTADOR3% 

FORWARO;3% 


% 
DEFINE SUBRANGE® wee SUBRANGE DECLARATION #ee 
BEGIN PERS ESSE SSE EES ERS EEE ES 
CONSTANTCVALX1eTYPEX1 3% 
IF TYPETABLECTYPEXL J] eFORM>CHAR THEN ERRORC11)3% 
IF CURSY*DOUBLEDOT THEN ERROR(53)3% 
INSYMBQL3% 
CONSTANTCVALX2eTYPEX2)3% 
IF TYPEX1>0 ANDO TYPEX220 THENS 
IF TYPEXy#TYPEX2 THEN ERROR¢( 11) ELSES 
IF VALXI>VALX2@ THEN ERROR(54)3% 
TyLSBTYPETABACTYPEX,)] «FORMS IF TysSYMBOLIC THEN Tyt*SUBTYPESS% 
NEWTYPES TTYPESSTYPEINDEX3% 
TAeSIZEssTSIZE seis T1eSTRUCTIAQ3 TIeMAINTYPES@TYPEXLS% 
TYPETABLLTYPEINDEXI3=T152% 
TYPETAB2CTYPEINDEXJ sSVALX13 «TYPE TAB3LTYPEINDEX] $= VALX2s% 
END OF SUBRANGE#3% 
% 


% 
PROCEOURE TyPEDECL(TTYPEsTSIZE)3% 
INTEGER TTYPEsTSIZEd% 
BEGINS 
PROCEDURE TYPERRCERRNUMsTTYPEs TSIZE)3% 


VALUE ERRNUMI% 

INTEGER ERRNUM@TTYPEsTSIZe 3% 

BEGIN ERRORCERRNUM)I2 
TTYPELSTSIZELOs% 

ENO}% 


INTEGER RECINX*ARRSTRUC To TXsSXs Tio T2eTIeTANI% 
BOOLEAN FIRSTs% 


02600 
02604 
02602 
02603 
02604 
02605 
02606 
02607 
02608 
02609 
02619 
02611 
02612 
02613 
02614 
02615 
02616 
02617 
02618 
Q2619 
02620 
02621 
02622 
02623 
ge624 
02625 
02626 
02627 
02628 
02629 
02630 
02631 
02632 
02633 
02634 
Q2635 
02636 
02637 
02638 
02639 
02640 
02641 
02642 
START OF SEGMENT 
02643 
02644 
02645 
02646 
02647 


02648 
02649 


02650 


Ads to te 


AAs PH a tt at ts ts 


a4 


0375 
QO375 
QO378 
0375 
Q375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
0375 
Q375 
0375 
0375 
0375 
0375 
0373 
0375 
0375 
0375 
0375 
0378 
0375 
0375 
0375 
03975 
0375 
0375 
0375 
037% 
0375 
Q378 
0375 
03748 
0378 


eeeetetne 36 


0008 
0000 
0000 
0000 
0002 


000g 
Q00p 


0009 


00002645 


PACKEDtsFALSEs% 

IF cURSY®IDENTIFIER THEN Ruee SIMPLE TYPE DECLARATION wwe 

BEGIN See eee EAR ETHER E RENEE EEE 
SEARCHI% 


If FOUND THENS 


BEGIN’ 
IF THISID,IOCLASSSTYPES THENS 
BEGINS 
TTYPESFTHISIOeTYPES TSIZESBTYPETABLILITTYPE] eSIZES% 
INSYMBOL3% 


END ELSE IF THISIpeI och asS#cONST THEN SUBRANGES 


02651 
02652 
02653 
02654 
02655 


02656 
02657 
02658 
02659 
02660 
0266) 
02662 


44 +44 


+4 44 ot 


0002 
0002 
0003 
0004 
0005 


00002655 
00002655 
00002655 


00002655 
34 


0034 
0034 
0036 
0036 
0039 
0046 


00002659 
0000266e 
00082662 
00092662 
00002662 
00002662 
00002662 
00002662 
00002662 
00082662 
00092662 
00002662 
00002662 
00002662 
00062662 
00002662 
00062662 
00062662 
00002662 
00062662 
00082662 
00092662 
00002662 
00002662 
00002662 
00002662 
00002662 
00092662 
00062662 
000e2662 
00082662 
00002662 
00002662 
00002662 
00002662 
00062662 
00002662 
00002662 
00062662 
00002662 
00082662 
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ELSE TYPERR(7*TTYPE*TSIZE) 44 


ENO ELSE BEGIN TYPERRCisTTYPEsTSIZE)3 INSYMBOL END3% 


END ELSES 


If CURSYSCWARCONST OR CURSY#PLUS OR CURSY®MINUS THEN SUBRANGE ELSES 


IF CURSYSLPAR THEN’ 


BEGINS 
Niz03% 
_ NEWT¥PES 


DO BEGINS 


T3eIDCLASS&#CQONST3 


INSYMBOL32 


T3eTYPES=TYPEINDEXSS 


02663 T 
02664 T 


02665 T 
02666 T 


02667 
02668 
02669 
02670 


i) 


02671 7 


02672 T 


00062662 

0249 

0251 
00062657 
00062664 

0255 
00002654 

0255 
00002666 
00092666 
00002666 
00002666 
00002666 
000@2666 
00002666 
000@2666 
00002666 
00062666 
00082666 
00092666 
00002666 
00062666 
00002666 
00002666 
00062666 
00002666 
00082666 
00002666 
000e@2666 
00002666 
00062666 
00002666 
00002666 
00002666 
000@2666 
00002666 
00002666 
00002666 
00002666 
00002666 
00002664 
00002666 
00002666 
00002666 
00002666 
00002666 
00002666 
00082666 
00002666 

0466 

0467 

O46? 

0468 
00002670 
00082670 


(0477 


0477 


! 
| 


IF CURSY=SIDENTIFIER THENS 
BEGINS 
NEWNAME CCURNAME 1 »CURNAME2*CURLEVEL 3% 


T3eINFOSENS NAMETABSCCURLEVELs THISINDEX]33733% 
Nt@Ne13  INSYMBOL;% 
END ELSE ERROR(9)3% 


END UNTIL CURSYSCOMMA;S 
IF CURSY*RPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) ENDS 


TLUBSYMBOLICS TieSTRUCTEROSS | 
Ti SIZEtmTSIZEs2is «TTYPES®TYPEINDEXSS 
TYPETABICTYPEINDEXI] t#115% 
TYPETABZETYPEINOEXI];203 TYPETAB3LTYPELNDEXJasNuLs% 
If CURSY#eRPgR THEN INSYMBOLs% 

END ELSEX 


IF CURSYSARROW THEN Ree* POINTER DECLARATION #** 
BEGIN Beene ed eke eee eaten keehehe 
INSYMBOL34 
IF CURSYSIDENTIFIER THEN* 


BEGINS 
NEWTYPe; TTYPES®TYPEINDEXS TIs=POINTERS 3% 


TieSIZEMsTSIZES=L3 Ty sSTRUCTIZ05% 
TYPETABL(TYPEJNOEX] 3uT 43% 
SEARCH3% 


IF FOUND THEN’ 

BEGIN% 
IF THISIDsIOCLASSSTYPES TH 
TYPETABLETYPEINDEX] POINTT 
TYPERR(7sTTYPEsTSIZE)3% 

END ELSE% 


EN 
YPES*®THISID,TYPE ELSE% 


BEGIN&. 


IF NUMPNTRS<MAXPNTRS THEN NUMPNTRS# eNUMPNTRS#1 ELSE ERROR(52)3 
PNTRYABy,CNUMPNTRS) $eCURNAME 43 PNTRTABorcNUMPNTRS J $@CURNAME 23% 


PNIRTABSCNUMPNTRSIt@TYPETNDEX 3% 
ENDs% 


INSYMBOL33 
END ELSE TYPERR(O*TTYPEsTSIZE) 3% 


END OF POINTER DECLARATION ELSES 


BEGINS 
IF CURSYsPACKEDSY THEN BEGIN PACKEDtaTRUES INSYMBOL END3% 


02673 
02674 
02675 


02676 
02677 
02678 


02679 
02680 


0268) 
02682 
02683 
02684 
02685 
02686 


02687 
02688 
02689 
02690 
02691 
02692 
02693 


02694 
02695 
02696 


02697 
02698 
02699 
02700 
02701 
02702 


02703 


02704 
02705 
02706 
02707 


02708 
02709 


02710 


02711 
02712 


a4 
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oe ee ne ee ee ee 


+441 


ee ee ee ee a 


++ 


0477 
0478 
0478 
00092675 
00002675 
0°01 
Q505 
050? 
00002674 
0508 
00002674 
09 


00002680 

0512 

os14 

0518 

0519 

0528 

0524 
00002668 

0524 

0524 

0525 

0526 

0526 

0527 

0527 
00002693 
000020693 

0534 

0538 

0548 
00002696 
00062696 
00062698 
00002696 


0577 
00002698 

0577 

0577 

0584 

0584 


88 
00062703 
0585 
0585 
00002692 
0588 


00002689 
0588 
0589 

oo0e27 1B 
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@ 
@ % 02713 T 0594 
| IF CURSYmARRAYSY THEN %*e* ARRAY DECLARATION ##e 02714 T 0594 
BEGIN Leeeeeeeekekeevedakeded nes Q2715 T 0892 
@ INSYMBOL 3% 02716 T 0592 
TF CURSYALBRACKET THEN ERROR(47) ELSE INSYMBOLSS . 02717 T 0598 
Ttw03 FIRST#sTRUES2 02718 T 0596 
@ DO BEGINS 02719 T OS9F 
IF FIRST THEN FIRST&@FALSE ELSE INSYMBOLSS 02720 T 0598 
TYPEDECL(TX*SX)3% 02721 T 0608 
@ IF TX>0 THENS C2722 T 0604 
BEGINS | —— 02723 T 0602 
IF TYPETABLLTX) eFORM>CHAR THEN ERROR(48)3% 02724 Tt 0602 
®@ TigsARRAYSS TLeINXTYPESSTXS TLseARRTYPE STIX 02725 + 0605 
TAreTYPETAB2(TXIS T3S3TYPETABILTXISS ; 02726 T 0609_ 
IF T3*T2>1022 THEN ERROR(61)3% 02727 + 0614 
@ TL, SIZECSMINCLOZ3e TI" T244)3% 02728 T 0644 
NEWTYPESS | O2729 T 0619 . 
00002729 
6 00002729 
TYPETABALTYPEINDEXIEST13% 02730 T 0624 
TYPETABZCTYPEINDEXIS3®723 TYPETABSLTYPEINOEXIS™T33% 02731 T 0625 
@ TiaTYPEINDEX3% 02732 T 0628 
END3X. 02733 T 0628 
00082728 
@ END UNTIL CURSY*COMMA3% 02734 T 0628 
ta8 | 00002719 
IF CURSYZRBRACKET THEN EKROR(59) ELSE JNSYMBOLJ& 02735 T 0630 
@ IF CURSY*OFSY THEN BEGIN ERROR(C18)3 Skip COFSY) ENDs3 02736 T 0633 
; 00002738 
INSYMBOL3% 02737 T 35 
@ TYPEDECL(TX#SX)3% 02738 T 0636 
IF TYPETABILTXJ«FORMZFILES THEN ERROR(60)3% 02739 T 0637 
ARRSTRUCTSETYPETABLETX] eSTRUCTI2 02740 7 0640 
@ WHILE T20 DO 02741 T 0644 
BEGINS O2742 T 0648 
Tit@TYPETABLCTISZ T38™T1,ARRTYPESS 02743 T 0643 
8 TIsARRTYPESaTxs TL, STRUCTISARRSTRUCT SE SARRSTRUCTHLSY 02744 T 0645 
T1,SIZEtBSXISMIN( 1024s SXxT1,SIZE)3% 02745 T 0650 
TYPETABLICTISSTis TXHeTS THeT33% 02746 T 0655 
@ ENDS 02747 T 58 
- 00002742 
TTYPELETXS TSIZEssSX3% 02748 T 0669 
@ END OF ARRAY DECLARATION ELSES 02749 T 0662 
- 00002715 
% 02750 T 0662 
e IF CyuRSYaFILESY THEN Zeee FILE DECLARATION wee 02751 T 0662 
BEGIN. Reece se ee wee wewawaekwnweee O2752 T 0663 
INSYMBOL23 02753 T 0663 
@ IF CURSYZOFSY THENS 02754 T 0664 
BEGIN ERROR(18)5% 02755 T 0665 
IF CURSYAIDENTIFIER THEN INSYMBOL3% 02756 T 0666 
e END ELSE INSYMBOL3% 02757 T 0668 
oe ee. iy 00002755 
TYPEDECL (TX#SX)5% 02758 T 0669 
@ IF TX>0 THENS 02759 7 0670 
; BEGIN TEPTYPETABI(TXII% 02760 T 0670 
° IF TeFORM2FILES THEN ERROR(50) ELSES 02761 T 0672 
@ 


IF TeSTRUCT>1 THEN ERROR( 49)3% 02762 T 0674 
END3% 02763 T 0677 
00002760 
NEWTYPES TTYPES®TYPEINDEXS3 02764 T 0677 
00002764 
00002764 
TitalF TeFORMZCHAR THEN TEXTFILE ELSE FILES 02765 T 0683 
TL SIZES@TSIZESFSX$ TL FILETYPE SSTXI% 02766 T 0687 
TLeSTRUCTSBLISZ 02767 T 0694 
TYPETABULTYPEINDEXJ] 88T13% 02768 T 0693 
END GF FILE DECLARATION ELSES 02769 T 0694 
00002752 
02770 T 0694 
IF CURSYRSETSY THEN Zeek SET DECLARATION wae 02771 T Qge9a 
BEGIN Perr rrrerrrrerrerrLerre Ts 02772 T 0695 
INSYMBOL3% 02773 tT 0696 
IF CURSYOFSY THENS Q2774 T 0696 
BEGIN ERROR(18)3% 02775 T 0697 
rF CURSY>CKARCONST THEN IJNSYMBOLS% 02776 T 0698 
END ELSE INSYMBOQLs2 Q2777 T 0700 
00002775 
TYPEDECL(TX95X) 3% 02776 T O704 
IF TX>Q THENS 02779 T 0702 
BEGINS 02780 T 0703 
IF TYPETABLCTXJeFORM>CHAR THEN ERROR( 48) ELSES 02781 7 0708 
IF TYPETAB2ETX]<O OR TYPETaB3LTXI>38 THEN ERROR( 513% 02782 T 0706 
END32% 02783 Tt 9710 
00002780 
NEWTYPES TTYPESSTYPEINDEXSS 02784 T 10 . 
00002784 
: 00002784 
TAISSETS TleSETTYPESeTX# TieSTRUCTS303% 02785 T O716 
TieSIZetsTSIZEsF13 TYpPETABILTYpPEINDEXI #87158 02786 T O720 
TYPETAB2CTYPEINOEXJ s@TYPETAB2CTXI3% 02787 Tt o724a 
TYPETARBSLCTYPEINDEXISSTYPETABSICLTXI 3% 02788 T O725 
ENO OF SET DECLARATION ELSES 02789 7+ 0727 
00002772 
02790 T O727 
1F CURSYmRECORDSY THEN Z**e RECORD DECLARATION *e* 02791 T O72? 
BEGIN Le eee ee ane e eka kth ket kek 02792 T O72a 
IF pa ae ait Le THEN LASTREC TALASTREC™ 4 ELSE ERROR(5523% 02793 T 0729 
RECINXtS/ASTRECS% 02794 T 0733 
BLOCKTABLRECINXJ) seNUMBLOCKS ¢sNUMBLOCKS+13% 02795 T 0734 
INSYMBOLSS | 02796 T 0736 
FIELOLISTCRECINX#0sSX)3% O2797 + 0736 
If 5X>14022 THEN BEGIN ERROR(56)3 SX#s1022 ENDSS 02798 T 0738 
; 00002798 
NEWTYPES TTYPES=TYPEJNDEX3% 02799 T O740 
00002799 
; 00002799 
TAIFRECORDS TLsRECTABSFRECINX) T1I,STRUCTIFISS 02800 T 46 
T1isSIZESSTSIZE8#SX3 TYPETABICTYPEINDEXJ saTiss 02801 T 0751 
TYPETAB2CTYPEINDEXI3903 TYPETABICTYPEINDEX) $#SxX44 5% 02802 T 0754 
IF CURSYZENDSY THEN BEGIN ERROR(24)3 SKIPCENDSY) ENDS 02803 Tt o757 
000028034 
IF CURSY#ENOSY THEN INSYMBOL32 02604 7 Q760 
END ELSE BEGIN ERROR(4)3 SKIPC(99) ENDS 02805 T 0762 


END 3% 


ENO OF TYPEDECLs% 


% 
a 
PROCEDURE 


FIELQLISTCRECTABsFIRSTADOR*LASTADDR ) 3% 


VALUE RECTABsFIRSTADORS% 
INTEGER REETABs FIRSTADDReLASTADDRSS 


BEGIN 


INTEGER ARRAY ILISTCOILI[STLENGTHII2 


INTEGER LISTINX3% 
INTEGER CASETYPE* ADDR» MAX ADORs INDEX» CTYPE TXeSXoTL oT SoLULMeULIMe 3% 
BOOLEAN FIRST3% 

REAL CVAL33 


LABEL 


CASETYPELUsCASEPARTSEXIT32 


ADDR# sFIRSTADORSS 
DO BEGINS 
WHILE CURSymSEMICOLON OO INSyMBOLs% 
IF CURSY@CASESY THEN GO TO CASEPART3& 
IF CURSYSIDENTIFIER THEN® 
BEGINS 
LISTINX#203 FIRSTtsTRUESS 
DO BEGINS 


IF FIRST THEN FIRSTIRFALSE ELSE INSYMBOL 3% 
IF CURSYSIDENTIFIER THENS 


BEGIN’ 
TIF LISTINX2LISTLENGTH THEN BEGIN ERROR(37)5 LISTINx$ sO ENDS 


LISTINX8 aL ISTINX413% 
NEWNAME (CURNAME 1 sCURNAME 2sRECTAB) 3% 


ILISTCLUSTINXI] Fa THIS INDEX 3% 
INSYMBOLAS | 


END ELSEX 


BEGIN ERROR(9)4% 
IF CURSYsCOMMA THEN INSyMBOL#% 
END3% 


END UNTIL CURSY*COMMA3% 


IF CURSYZCOLON THEN BEGIN ERROR(26)5 SKIPCCOLON) END#% 


INSYMBOL3% 
TYPEDECLCTX#SX)3% ee aes 
IF Tx?0 THEN IF TyPETABICTxJeFORM2FILES THEN ERROR(57)3% 


02806 
02807 


T 
T 


36 IS 777 LONG» 


02808 
02809 
02810 
02811 
02812 
02813 
02614 


START OF SEGMENT 


02815 
02816 
02817 
02818 
02819 
02820 
02824 
02822 
02823 
02824 
02825 
02826 
02827 
02828 
02829 
02830 
02834 
02832 


02833 
02834 


02835 


02636 


02837 
02838 
02839 
02840 
02641 
2842 
02843 


02844 
02845 


tt ae tt ts ot to te 


4~4-4 44 +4 


444 a a | 


00002792 
00002805 


0764 


00002711 


0764 


00002641 


NEXT SEG 
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0375 
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0004 
0004 
0001 
0004 
0004 
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000a 
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0008 
0006 
0007 
0007 
0009 
0010 
0012 
0013 
0013 
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37 


00002832 


0016 
0047 


00002834. 


00002834 


0040 
0041. 
0040 


042 
0043 
0045 


045 


0049 
0049. 
0058 


0000283) 


j _ 00002838 

00002828 

a Ae 
00002842 


! 
_ 


T3eIDCLASS#3VARS T3eTYPESETXSS 
FOR Imi STEP 1 UNTIL LISTINX DOS 
BEGINS 
T3eINFOSFADDRS ADDRE®MINCADDRESX2 1024 )3% 
NAMETAB3CRECTABSILISTLIJIsaT35% 
END3% 


END#% 
END UNFIL CURSYASEMICOLONSS 


LASTADOR! *ADORS% 
GC TO EXIT3% 
% 
CASEPARTIS 
LISTINX##03 LASTADOR#SADDRI INDEXts@13% 
INSYMBGLS% 
IF CURSYSIDENTIFIER THENS 
BEGINS 
SEARCH} % 


IF FOUND AND THISIDsIOCLASSSTYPES THEN GO TO CASETYPEIDS: 
NEWNAMECCURNAMEL*CURNAME2*RECTAB); INDEXtSTHISINDEX 34 


INSYMBOLS% 
IF CURSY*COLON THEN ERROR(26)3% 
INSYMBOL 3% 
IF CURSYsIDENTIFIER THENS 
BEGIN 

SEARCH3% 


IF FOUND THEN® 
BEGINS | 
IF THISIOeIDCLASS@TYPES THENS 


; BEGINS 
CASETYPEIDs CASETYPE ta THI SIDe TYPES TiseTYPETABLECASETYPEJ3% 
LLIMSeTYpETAB2CCASETY pEJ; ULIM@STYpETABSCCASETY ped 5% 


IF Ti eFORMSCHAR THEN ERRORC46)3% 
IF INDEX20 THENZ 
BEGINS 
T3IeIOCLASS#aVARS T3,TYPESRCASETYPES 


ENDs%. 


INSYMBOL 3% 
ENO ELSE BEGIN ERROR(7)3 SKIPCOFSY) ENDs® 


NO ELSE BEGIN ERRORC1L)$ SKIPCQFSY) ENDS2 


T3,INFOSZAQDDRSS 
ADOR# SLASTADDR! eADOR#1$ NAMETABSCRECTABsINDExJtsT33% 
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02848 
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02850 
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02852 
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02855 


02856 
02857 


02858 


02859 
02860 
02861 
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0054 
0058 
0059 
0059 
0064 
0066 
00002848 
O68 


00002826 

0068 
00002822 

0070 

Q074 

0073 

0073 

0073 

0075 

0076 

0077 

OO7?7 
00002862 
00002862 
000902862 
00002862 


00002864 
00002864 


00002870 
00002876 
00002870 
00002870 


00002879 


00002874 
00002884 
0186 


00002872 


e@® @2eeeoeeeeeeeeeeees#eeH#eeexs ee @a 


END ELSE BEGIN ERROR(9)3 SKIPCOFSY) ENDS% 
END ELSE BEGIN ERROR(9)4 SKIPCOFSY) ENDS% 


IF CURSYZOFSY THEN BEGIN ERRORC18)3 SKIPCRPAR) ENDJS 


IF CURSYSOFSY THEN INSYMBOLsS 
IF CASETYPE20 THEN BEGIN LLIMS@@MAXINTS ULIMPSMAXINT ENDIF 


OO BEGINS’ 
WHILE CURSY®SEMICOLON DO INSYMBOL34 
IF CURSYSCHARCONST OR CURSY@PLUS OR CURSY@MINUS THENS 
BEGIN’ 

FIRST#aTRUEIS 

0G BEGINS 
IF FIRST THEN FIRSTS=2FALSE ELSE INSYMBOLS% 
CONSTANTCCVALS CTYPE) 3&4 


IF CTYPE>0 THEN® 

BEGIN’ 
IF CASETYPESQ THEN CASETYPESSCTYPE ELSE% 
IF CVAL<LLIM OR CVALA2ULIM THEN ERRORC14) ELSES 
CHECKTYPESCCASETYPEs CTYPE )3% 


IF LISTINXZLISTLENGTH THEN BEGIN ERROR(C30)3 LISTINX3mO ENDI2 
LISTINXS®LISTINX413% 
ILISTCLISTINXI] #eCVALS Leei3% 


WHILE ILISTCIJ#CVAL OO I[#™1413% 
IF L<LISTINX THEN ERROR(31)33% 


02886 
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444 


~ 
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00002884 
| ee 
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00002869 | 
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00002887 
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0195 
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0200 
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00092690 


00002898 
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00002898 
00002898 
00062898 
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000@2898 
00002898 
00062898 
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000e2898 
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000028968 
00062898 
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00002908 
00002903 


00092905. 


00002903 
00082903 
00002903 
00082903 


00002904 


ENDS% 
END UNTIL CURSYFCOMMA3S 
IF CURSYZCOLON THEN BEGIN ERRQR(26)4 SKIPCLPAR?) ENDSS 
IF CURSYSCOLON THEN INSYMBOLS2% 


IF CURSY#LPAR THENS 
BEGINS 
INSYMBOL3 FIELDLISTCRECTaBs ADDR» MAXADDR) 3% 
IF MAXADDRALASTADDR THEN LASTADOR? #MAXADDRI® 
If CURSYARPAR THEN BEGIN ERROR(46)3 SKIPCRPAR) NOIR 


INSYMBOLS4% 
END ELSE ERROR(58)3% 


ENQ3% 
END UNTIL cURSY NEQ SEMICOLON; & 


EXIT&% 
END OF FIELOLISTsI®& 


o 
nn 
© 
°o 
c 
=" 


A444 lt lH 


oo 
—e 
cm 
44 


401 LONGs 
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00002917 
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00002891 
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NEXT SEG 3 
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PART 83 THE PROCEDURE BLOCK, : 
a 
] 
% 
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% 
rf 
x 
x 
x 
% 
x 
x 
% 
RELAAUALALATARLTALAREAVATATAALAGAALALALARLTSARAASATARAAAAALALASARAAAALL 
% 
x 


ae 


PROCEDURE QECLAREVARS(PARAMs TAB*F IRST*LAST» LEVEL) 3% 
VALWE PARAMsFIRSTsLASTsLEVEL 32 
INTEGER ARRAY TAB[OJ3% 
INTEGER FIRSToLASTeLEVEL3% 
BOGLEAN PARAM32 
BEGIN2 
INTEGER LEVELLO00r TYP»NAMeNaMTapeTis lo Je RECSIZESS 


BOOLEAN REALVARsARRAYVARefIRSTD IMsEXTFILESS 
ALPHA FNAMES% 
INTEGER FNLENGTH*FNSTART? % 


LEVELLOOOFHLEVELX10003% 
FOR I8SFIRST STEP 1 UNTIL LAST 00% 


% 
Peete aBel 9£931033 NAMTABPSNAMETABSCLEVEL NAM] 5% 

TYPtmNAMTAB, TYPES TIS#TYPETABICTYPI3% 
If NAMTAB,]pchASS GEQ FUNC THENS 
BEGINS . 

IF REAL VAR OR ARRAYVAR THEN 

BEGIN? 

GENChS"s 19734 


REALVARSZARRAYVARSSFALSESS 
END 3% 


IF NAMTaBelOCLASSSFUNC THEN GENC™RE AL" 2504) 52 
GENC™PROCEDU"s 821)3% 
GENIDC"™V"sLEVEL LOOO+NAM2 5)3 GENC™3%5197)3% 


END ELSEX 


IF Ti,STRUCT#O THEN 


BEGINE ate 
If ARRAYVAR THEN BEGIN GENC"S"9497)3 ARRAYVARS#@FALSE ENIX 


Zawe SIMPLE TYPE wee 


IF REALVAR THEN GENC","s497) ELSES 
BEGIN GENCYREAL'"»554)3 REALVARSSTRUE ENDJ% 


Q2925 
02926 
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02929 
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02969 T 
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kekkeanver 38 


0000 

0000 

0000 

0000 

0006 

0004 

0002 

0002 

0005 

oooP 

0008 

0009 

0010 

0016 | 
00002958 

0019 

0020 
) 957 

Signe 


00002964 
31 


00002962 

0040 . 
00002968 
00002963 

0062 
0000295$ 


00002967 

_ 00002967 
0077 

00002966 


00002969 


GENIOCTVTsLEVEL LOOO+NAMS 5) 5% 


END ELSEX 


BEGINS 
IF REALVAR THEN BEGIN GENC"5%5157)3 REALVARS mPFALSE ENDS 


IF TleFORMSFILES THEN Zee ARRAY/RECORD *** 


BEGIN 
IF ARRAYVAR THEN GENC"*%5197) ELSES 


BEGIN GENC"ARRAY"»6s3)3 ARRAYVARS@TRUE ENDS 
GENIDOMV"sLEVEL{OOO#NAMSS5)3 GENCE + y57)38 


FIRSTDIMS*TRUESS 
DO BEGINS 
If FIRSTOIM THEN FIRSTOIM#*FALSE ELSE GENC™*"o L973 


GENINTCTYPETAB2(TYPJ 23% 


IF NOT PARAM THEN? 
BEGIN GENC™¢"51,7)93 GENINTCTYPETABSCTYPI]) ENDSS 


TYPS=IF T1,FORMBARRAYS THEN T1,ARRTYPE ELSE REALTYPESS 
Tis#TYPETABLLETYP 3% 
END UNTIL TieSTRUCTSOS4 


GENC™I% 51 97)5% 
END ELSE% 


BEGIN Zeewe FILE wow 
IF REALVAR OR ARRAYVAR THENS 
BEGIN GENC™3Z%5197)3 REALVARS®ARRAYVARUSFALSE ENDSS 


IF Ti eFORM*TEXTFILE AND NOT PARAM THENS 
EGINSA ? ; 
IF NUMFILES2MAXFILES THEN ERROR(97 )% 
ELSE NUMFILESSSNUMFILES+44% 
FILETABCNUMFILES Jt =NAM3% 
ENO3% 


EXTFILESSFALSESS 

FNAME S=NAMETABICLEVELs NAMI 3% 

FNLENGTH $8 FNAME NAMELENGTHS FNSTART t& @*FNLENGTHS % 
IF FNLENGTH LE@ 6 THEN % 

BEGIN? 


ee ee 


+441 +4 


4-4 


“441 


00002969 
0097 
00002970 
9 


00002966 


00002973 
00002973 


00002976 
0134 

00002977 

00002977 


000029786 
00082978 
0165 
0166 
0167 
00002981 
0179 
00002982 
000e2982 
0223 
ge23 
00002984 
000@2984 
00082984 
00002984 
77 


0281 

0282 
00002980 

0283 
000@2988 

0292 
00082975 

0299 

0293 

0294 
00092992 
00002992 

0304 

0306 


0307 


0309 

0314 

0312 
0008299% 

O312 

0313 

0314 


0317 


0318 


FOR J#31 STEP 3 UNTIL NUMEXTFYILES DO’ 
IF FNAMESEXTFILETABCY) THEN EXTFILEt aTRUESS 
ENDs% 


IF ExTFILE AND NOT PARAM THENS 


BEGIN’ 
If NUMFILES GEQ MAXFILES THEN ERROR(C97 )% 


ELSE% 

NUMFILES 8& NUMFILES * 18% 

FILETABENUMFILES) &* "NAM # 13% 
GENCMDEFINE "+7 ,2)3 GENIDCMFT,LEVELIOOO+NAMSS 5% 
GENC™E"s+ 127)5% 

GENCFNAMEsFNLENGTHsFNSTART)3 % 


GENC™#HI%2296)3 GENCTSAVE",»554)3 GENCPFILE" 2 004 )3% 


GENCFNAME,»FNLENGTH»FNSTART)3 %& 
END ELSE% 
BER EN CMFILE" 9524)5 GENIDC"F™sLEVELIOOOFNAMs5 3% 
END3% 
IF NOT PARAM THENS 


BEGINS 
GENC™ DISK"%s653)3 GENC"SERTAL"s702)3% 


IF EXTFILE THENZ 
BEGIN’ 
IF ALGOLCNT LSS 13 THEN WRITEALGOLSS 
GENC™LO801%2523)3% 
GENC™™",157)3% 
GENCFNAME*FNLENGTHOFNSTART QS 4% 
GENC™""™,157)3 GENC*™/" 5157754 


IF ALGOLCNT<9 THEN WRITEALGOL3S 
GENCT™™%s197)3 GENCUSER®791)3 GENC™BM po 197 )3% 


END ELSE% 


BEGIN* 
GENC™C208"eGedy3 = GENC™3IO00I "9 40) 5% 
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00003013 
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00003014 

Q362 
00003015 

0374 
00003016 
00003014 
00003014 

0398 
00003017 


00003008 


00003020 
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00003028 
63 
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00003030 
1 


00003031 
00003031 

0499 

0500 
00003038 
00003033 
00003033 

0532 
00003026 

0532 

053— 


ENDs% 
GENC™( 12% 325) 5% 
RECSIZEtSIF T1,FORMSTEXTFILE THEN 10 ELSES% 
IF TYPETABACTISFILETYPEJeSTRUCT#0 THEN 1 ELSES 


TYPETABILTIsFILETYPEI*TYPETAB2CTI FILETYPE) 445% 
GENINTCRECSIZE)3 GENC%ey157)5% 


IF RECSIZEal OR RECSIZEs10 THEN GENINTC150)% 


ELSE GENINTCRECSIZE)3% 


IF aLGOLCNT LSS 10 THEN WRITEALGOL;% 
GENC™»SAVE%26,3)3 GENC"30%22,6)3% 
GEN(™)3"%9296)3% 

ENO ELSE GENC™3%59497)54 


GENC™ ARRAY" 2603); GENTOC™V"FLEVELLOO0+N AMS y 54 


GENC™C%,127)5% 
IF TYPETABICTIeFILETYPEJ¢STRUCT=O THENS 
BEGINS 
IF PARAM THEN GENC"O"2127) ELSE GENC"080"%2395)54 
END ELSE% 
BEGINS 
GENINTCTYPETAB2CTI FILETYPE) 23% 


IF NOT PARAM THENS 
BEGIN GENC™§%5447)3 GENINTCTYPETABSCTyeFILETYPE)) ENDS% 


ENDS % 
GENCW)3% 2 206)5% 


GENC"INTEGER" sBo1)3 GENIOC™I®sLEVEL 10004NAMS5 3% 
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0000304¢ 
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00003042 
0624 
00003048 
00003043 
0670 
00003044 
00003044 
O714 
0716 
00003044 
00003046 
0734 
00003047 
43 
00003023 
00003048 
0755 
00003049 
00003049 
0776 
00003050 
5 


O7e? 

0788 
00003058 
00003053 

0809 
00003052 

0809 

0809 
00003056 
00003058 

0854 

0854 
00003058 
00083058 
00003058 
00003058 


909 
00003055 

0909 
00003060 

0918 
00003064 
00003061 


END 


% 
% 


GENC#S"%o197)5% 
ENO3% 
ENDs% 
END OF LOOP3% 
IF REALVAR OR ARRAYVAR THEN GENC 3S %,157)5% 
OF DECLAREVARS34 


PROCEDURE PARAMETERLISTs2 


BEG 


IN’ 


INTEGER FIRSTPARAM,CURKINDsPlePxslo Tid 
BOOLEAN FIRST 


DEFINE NEWPARAM#S% 

BEGINS 
IF NUMPARAMSEMAXPARAMS. T 
EGIN ERROR(70)3 NUMPARA 
NUMPARAMS!2NUMPARAMS413% 

END OF NEWPARAMA&3%& 


MAXPARAMS#10 ENDS 


NEWPARAMS FIRSTPARAM! aNUMPARAMS3 y 


IF CURSY#LPAR THEN 
BEGINS 
00 BEGINS 
INSYMBOL3% 
IF CURsY=vARsy OR CURSYSFUNCSY OR CURSY#PROCSY THENS 
BEGINS 
 OURKIADTRIE CURSyaVARSY THEN VAR. ELSES 
IF CURSY®FUNCSY THEN FUNC ELSE PROC3% 
INSYMBOL3% 
END ELSE CURKINOS@CONSTs4 


FIRSTtsTRUES PLssNUMPARAMS413% 
DO BEGIN% 
IF FIRST THEN FIRST:SFALSE ELSE INSYMBOLJ% 
IF CURSY*I]DENTIFIER THENS 
BEGINS 
NEWNAME (CURNAME 1s CURNAME 2sCURLEVEL 44 23% 


PXt@THISINDEXS PX,PARAMKIND?*CURKIND3% 
PX,PARAMLEVEL s=CURLEVEL 413% 
NEWPARAM$ PARAMTABCNUMPARAMS] 88PX3% 


03062 
03063 
03064 
03065 
03066 
03067 


4 


38 IS 978 LONG,» 


03068 
03069 
03070 
03071 
03072 
START OF SEGMENT 
03073 
03074 
03075 
03076 
03077 
03078 
03079 
03080 
03081 
03082 


03083 
03084 
03085 
03086 
03087 
03088 
03089 
03090 
03091 
03092 


03093 
03094 
03095 
03096 
03097 
03098 


03099 
03100 
03101 


tt tt to 


A+Hoatt HHH 


ae ee 


a+ 4 


0939 
0000306¢@ 
48 


00002990 
0948 
00002972 
0948 
00002951 
0951 


00003066 
0964 

00002943 
NEXT SEG 2 


0375 
0375 
0375 
037§ 
0375 
akee taken 39 
0000 
0006 
0000 
0006 
0000 
0000 
00006 
0000 
0000 
0000 
00003082 
00003082 
0005 
0006 
0006 
0007 
0007 
0010 
0010 
0012 
0015 
0016 
00003088 
Q017 
0019 
0020 
0022 
0023 
0023 
00003098 
000030986 
0049 
Q051 
0053 


END ELSE ERROR(9)3% 


INSYMBOL34 
END UNTIL CURSYZCOMMA3S 


IF CURSY@COLON THEN2 
BEGINS’ 
IF CURKINDSPROC THEN ERROR(90)3% 
INSYMBOL 3% 
IF CyRSYSIDENTIFIER THENS 
BEGINS’ 
SEARCHS% 


IF FOUND THENS 
BEGINS. 


IF THISIDeIDCLASSSTYPES THENX 


BEGINS 
TIPeTHISIOeTYPEs4% 


FOR [s=Pqy STEP 14 UNTIL NUMPARAMS DO% 
PARAMTABLIj}4PARAMTYPE2 aT 33% 
IF CURKINO=CONST OR CURKIND#®VAR THENS 


BEGIN® 
TESTYPETABLCT3I3% 


TF TeFORM@FILES THENS 


FOR IseP1 STEP 14 UNTIL NUMPARAMS DQ% 
PaRaMTABLIJ,PARAMFILES #1 3% 
OF Te STRUCTOO AND CURKIND&CONS] THEN ERROR(C94)3% 
END ELSE IF T,STRUCT>O THEN ERROR(38)3% 


END ELSE BEGIN ERROR(7)3 T3980 ENDJE 
END ELSE BEGIN ERRORC1)5 T3880 ENDS 


END ELSE BEGIN ERROR(C9)3 T3:aq ENDJ& 


_ INSYMBOLJS 
END ELSES 


BEGINS | 
IF CURKINOZPROC THEN ERRORC7)3% 


T3t=03% 
END3% 


T3eIDCLASS#SCURKINOS T3eFORMALS e13% 
FOR [%wePi1 STEP 4 UNTIL NUMPARAMS p0% 
NAMETAB3CCURLEVEL41, PARAMTABLI ]¢PARAMNAME )#aT33% 


END UNTIL CURSY#SEMICOLONS% 
If CURSY*RPAR THENS 


03402 


03103 
03104 


03105 
03106 
03407 
03408 
03109 
03110 
O3111 


O3112 
03113 
03114 
03115 
03116 
03117 
03118 
03119 
03120 
03121 
O312e 
03123 
03124 
03125 
03126 


03427 
03128 
03129 


03430 
031394 


03132 
03433 
03134 
03135 


03136 
03437 
03138 
03139 


03140 


a 


ee ee | 


~4 


00003101 
00003103 
059 


00003097 
60 


0064 
00003094 
0062 
0068 
0063 
0065 
0066 
0067 
0067 
00003111 
00063111 
00063111 
00003114 
0096 
0096 
009% 
0098 
0098 
0099 
0101 
0105 
0107 
0198 
0109 
01160 
O42 
Olle 
0120 
00003120 
0123 
00003115 
00003127 
0128 
00003113 
00083126 
oler . 
00003110 
00003129 
0429. 
0129 
00003106 
0129 
0130 
0132 
0138 
00003132 
33 


0136 
0138 
0143 
_ 0000308% 
0144 


@ 
@ BEGIN ERROR(46)3 SKIPCRPAR)3% 03141 T 0145 
IF CURSYSRPAR THEN INSYMBOL}% 03142 T 0447 
END ELSE INSYMBOLS% 03143 T 04149 
] 00063141 
ENDS2 03144 T 01350 
00003084 
@ PARAMTAB[FIRSTPARAM] SS3NUMPARAMS=@F IRSTPARAM} & 03145 T 0158 
END OF PARAMETERLIST#® 03146 T 0152 
00003071 
@ 39 IS 157 LONGs NEXT SEG 2 
@ 
% 03147 T 0375 
@ % 03148 T 0378 
PROGEQURE BLOCKs4 | 03149 T 0375 
BEGINS 03150 T 03793 
@ INTEGER INDEXe CTYPE*NUMFORWARDSo ToT 3x TXo 13% 03451 T 0375 
. START OF SEGMENT weeeteweee 40 
REAL CVAL3% 03152 T 0000 
@ ALPHA GieC23% 03153 Tf 0000 
BOOLEAN VALUEPARAMS*FUNsS% 03154 T 0006 
LABEL STARTSS% 03155 T 0000 
@ % 03156 T 0008 
INTEGER LABTABTOP»CONSTTABT GPs TYPETABT OP* PARAMTABT UPs TOPREC#S 03157 T 0000 
FORMERFIRSTLABsFIRSTFILESS 03158 T 0000 
@ % 03159 T 0000 
FORMERFIRSTLABI@FIRSTLABSS 03160 T 0000 
LABTABTOPteNUMLABSS FIRSTLABSSLABTABTOP 413% 03161 T 0000 
& CONSTTABTOPS ®NUMCONSTS3% 03162 r 0002 
TYPETABTOP SSNUMTYPES3 3% 03163 T 0003 
PARAMTABTOP 8 @NUMPARAMS3 & 03164 T 0004 
@ TOPRECS#LASTRECIS 03165 T 0005 
FIRSTFILES=NUMFILES+13% 03166 T 0005 
% 03167 T 0007 
@ TOPLEVELP*®CURLEVELS% 03168 7 0007 
IF CURLEVEL>! THEN GENCYBEGIN'»653)3% 03169 T ooo? 
00003169 
@ STARTI% 03170 tT 0018 
IF CURSYSLABELSY THEN %ee* LABEL DECLARATION ##« 03171 T 0018 
BEGIN Leewe eee ene nekh ake eed ke 03172 7 OO1e 
@ GENC™LABEL"s 653)32% 031473 T 0049 
. a 00003173 
DO BEGIN? 03174 T 0028 
rd] INSYMBOLS3 03175 T 0029 
IF CURSY#INTCONST THENS 03176 T 0029 
BEGIN% 03177 T 0030 
e@ GENIDC"L"sCURVALs4)3% 03178 T 0036 
. 00003178 
IF CURVAL>9999 THEN ERRGR(33)3% 03179 t 0042 
@ FOR It™FIRSTLAB STEP 4 UNTIL NUMLABS p0% 03180 T 0044 
IF LABTABLIJeLASVAL@CURVAL THEN ERROR(31)3% 03181 T 0049 
IF NUMLABS2MAXLABS THEN BEGIN ERROR(34)3 NUMLABSts0 ENDS% 03182 T 0054 
@ 00003188 
NUMLABS#SNUMLABS4 15% 03183 T 9056 
e LABTABENUMLABSIS®CURVAL 3% 03184 T Q058 
@ 


INSYMBOL3% 
END ELSE BEGIN ERROR(10)3 SKIP( COMMA) END3% 


IF CURSYSCQMMA THEN GENC%,%p157)3% 
END UNTIL CURSYZCOMMAS% 
IF CURSYFSEmICOLON THEN BEGIN ERROR(25)3 SKIPCSEMICOLON) ENDS® 
GENC™35%o157)3% 


IF SYMKINDECURSYIJZINITI aL THEN INSYMBOLs% 
ENO OF LABEL DECLARATIONS’ ; 


IF CURSY@CONSTSY THEN Zxe* CONSTANT DECLARATION “a 
BEGIN Reece EAHA ERKERRE REET ED 
INSYMBOL#3% 
OO BEGINS 
IF CURSYSIDENTIFIER THENS 
BEGINS 
NEWNAME CCURNAME Ls CURNAME2,CURLEVEL)S INDEXtaHISINDEXs% 


INSYMBOL32 
IF CURSYSEQLSY THENS 
BEGINS 
INSYMBOLS CONSTANTCCVAL* CTYPE )3% 


T3ISCTYPES T3,IOCLASS#sCONST3% 
IF CVAL.C46t8]#0 OR CVAL>4023 THENS 
BEGINS 

TF NUMCONSTS2MAXCONSTS THENS 

BEGIN ERROR(35)3 NUMCONSTS#S0 END3% 


NUMCONSTS#sNUMCONSTS413% 


CONSTTABLNUMCONSTS)3=CVALE% 
TI, INFOSSLOZZeNUMCONSTS5% 


03185 
03186 


031867 
03188 
03189 
03190 


03191 
03192 


03193 
03194 
03195 
03196 
03197 
03198 
03199 
03200 


03201 
03202 
03203 
03204 


03205 
03206 
03207 
03208 
03209 


03210 
03211 
03212 


++ 


ee eee Neen Roe ee ee ee ee 


444-4 


a44 a 


44 4 


0059 

0059 
00003177 
00003186 

064 
00003187 

O78 


00003174 

073 
00003189 

76 
00003190 

5 


Q08P 
00003172 
0087 
0087 
0087 
0088 
0088 
008% 
0089 
0090 
00003200 
00003200 
18 
0113 
0114 
0115 
00003204 
00003204 
00003204 
00003204 
00003204 
00003204 
00003204 
00003204 
00003204 
00003204 
00003204 
00003204 
00083204 
00003204 
00003204 
00003204 
00003204 
000@3204 
00003204 
0203 
0208 
0207 
Q208 
0209 
00003209 


i 
0212 
02138 


END ELSE T3,INFOSBCVALSS% 


NAMETABSCCURLEVELs INDEX] 8aT33% 
END ELSE BEGIN ERROR(36)3 SKIPCSEMICOLON) ENDS 


END ELSE BEGIN ERROR(9I3 SKIPCSEMICOLON) ENDS 


IF CURSY4SEMICOLON THEN BEGIN ERRORC25)3 SKIPCSEMICOLON) ENDS 


IF SYMKINDCCURSYIZINITIAL THEN INSYMBOLJS 
END UNTIL CURSYZIDENTIFIERSS 


END OF CONSTANT DECLARATIONSS 


IF CURSYSTYPESY THEN Reese TYPE DECLARATION wee 
BEGIN Pewee kee wee eee eeeeeeee 
INSYMBOL4% 
DO BEGINA . 
IF CURSYSIDENTIFIER THEN2 


BEGIN&® 
NEWNAME CCURNAME 1 »CURNAME2sCURLEVEL)S INDEXseTHISINDEX3% 


INSYMBOL3% 
IF CURSY#EQLSY THENS 
BEGIN. 
INSYMBOL 3% 
TYPEDECLCCTYPEsTX)3% 
T3tSCTYPES T3,IDCLASS#STYPES 34% 
NAMETABSCCURLEVELs INDEX] $mT35% 
END ELSE BEGIN ERROR(36)53 SKIPCSEMICOLON) END3% 


END ELSE BEGIN ERROR(C92% SKIPCSEMICOLON) ENDJ4 


IF CURSY*SEMICOLON THEN BEGIN ERROR(25)3 SKIP (SEMICOLON) ENDS4% 


IF SYMKINDECURSYIJFZINITIAL THEN INSYMBOLJ% 
END UNTIL CURSYZIDENTIFIERSS 


END OF TYPE DECLARATIONS 


IF CURSYsVARSY THEN Reee VARIABLE DECLARATION *#*# 
BEGIN Reeeee ease eked eka setae eee 
VARINDEX! 504% 
DO BEGIN’ 
FIRSTVARSPVARINDEXS13% 
QO BEGIN’. Bech eae 
IF CURSYSVARSY OR CURSYSCOMMA THEN INSYMBOL 5% 
IF CURSYSIDENTIFIER THENS 
BEGIN® 
IF VARINDEX2LISTLENGTH THENS 


03213 


03214 
03215 


03216 


03217 


03218 
03219 


03220 


0322) 
03222 
03223 
03224 
03229 
03226 
QO32e7 
03228 


03229 
03230 
03231 
03232 
03233 
03234 
03235 
03236 


03237 


03238 


03239 
03240 


03241 


03242 
03243 
03244 
03245 
03246 
03247 


03246 


03249 
03250 
03251 
03252 


4-4 


4 va 


ee ee) ee ee 


4-4 


ee 


0215 
00003207 
18 


9220 


00003203 
00003215 
0222 
0000319 
00003216 
Q224 
00003217 
226 
0224 
00003197 
0230 
00003198 
0230 
0236 
0236 
02314 
0231 
0232 
0232 
0233 
000@32268 
00003228 
0256 
0256 
0257 
0258 
0258 
0259 
0262 
0264 
00003231 
00003234 
0266 
00003227 
00003237 
0268 
00003238 


00003225 
Oa74 
000@3223 


a «@ 


BEGIN ERROR(37)3 VARINDEX8#0 ENDS% 


VARINOEX ##VARINDEX* 13% 
NEWNAME(CURNAME 1» CURNAME2sCURLEVEL ) 3% 


VARLISTEVARINDEX] s3THISINDEXS% 
INSYMBOL 3% 
END ELSE BEGIN ERROR(9)3 SKIPCCOLON) ENDS% 


END UNTIL CURSYZCOMMAS& 
IF CyURSYZCOLON THEN BEGIN ERROR(26)s SKIP( COLON) ENDS% 


IF CURSY#COLON THENS 
BEGINA |, 
INSYMBOL3% 
TYPEDECLCCTYPEaTX)3% 
T3amCTYPES T3eIDCLASS#sVARZ% 
FOR ssFIRSTVAR STEP 4 UNTIL VARINDEX DOS 
NAMETABSCCURLEVEL*VARLISTCI J] $ aT3s% 
END ELSE BEGIN ERRORC26)3 SKIPCSEMICOLON) ENDS% 


IF CURSY¥SEMICOLON THEN BEGIN ERRORC25)3 SKIP(SEMICOLON) ENDS% 


IF SYMKINOCCURSYIZINITIAL THEN JNSYMBOL ;% 
END UNTIL CURSYZIDENTIFIERSS 


DECLAREVARS(FALSE,VARLIST,1,VARINDEX,CURLEVEL)3% 
END OF VARIABLE DECLARATIONS’ 


IF NUMPNTRS>O THEN’ 
BEGIN’ 
CLESCURNAMEL3 C22 4CURNAME2 3% 
FOR I3#1 sTEP 1 UNTIL NUMPNTRS DOX 
BEGINS 
CURNAMEL# ePNTRTABLCI)3 «CURNAMEZS aPNTRTAB2E1 32 
SEARCHTAB(CURLEVEL)3% 


THISITOSNAMETABICCURLEVEL* THISINDEX) 3% 

IF FOUND AND THISIOsIDCLASS#TYPES THENS 

TYPETABICPNTRTABICIII POINTTYPES®THISID,TYPE ELSE ERROR(62)5% 
ENDIS ; 


CURNAME1%aC13 CURNAME2$aC23 | NUMPNTRStaOs% 
ENDS% | — 


WHILE CURSYSFUNCSY OR CURSYSPROCSY DQ ¥**#* PROC/FUNC DECLARATION «ee 
BEGIN RHR RAKNKAERERKEE ERE EEE 


FUNtSCURSY=FUNCSYS INSYMBOLS% 
IF CURSY#IDENTIFIER THEN’ 


BEGINS _ 


03253 


03254 
03255 


03256 
03257 
03258 


03259 
03260 


0326) 
03262 
03263 
03264 
03265 
03266 
03267 
03268 


03269 


03270 
03271 


03272 
03273 


03274 
03275 
Q3276 
03277 
03278 
03279 
03280 
03281 


03282 
o32a3 
03284 
03285 


03286 
03287 


03288 
03289 
03290 
03291 
03292 
03293 


444 


a 


=" 


Sn ee ee ee ee ee ee ee 


4-4 te 


as te 


0282 
00003253 

0284 

0286 
00003255 


0308 

0309 

0316 
00003251 


00003255. 


00063258 © 


0319 
00003248 
0313 oe 
00003260 
0316 
O31? 
0317 
0318 
0319 
0324 
0323 
0327 
00003268 
00063268 
329 


00003269 
32 


0334 
00003246 
5 


0337 
00003244 
337 
0337 
Q338 
0339 
0346 
0342 
0342 
0344 
00063281 
00003281 
62 
0364 
0366 
0371 
00003279 
73 


03793 
00003276 


8 ®@ & @ & ] oe @ & & e@ @ e e@ & r ea a & r Be az 


SEARCHTABCCURLEVEL 234 


THISTOSSNAMETAB3CCURLEVEL»THISINOEXJ 3% 
IF FOUND AND THISID,IOCLASS2PROC THENS 
BEGINS 
INDEXS®THISINDEX3% 
IF THISID,FORWARDOEF*®1 THEN 
BEGIN’ 
NAMETAB3SCE THISLE VEL» THI SINDEX] eFORWARDODEF #8032 
NUMFORWARDS 8 SNUMFORWARDS* 13% 
IFCTHISIOeIDCLASS#PROC AND FUN)URS 
CTHISTO,JOCLASSSFUNC AND NOT FUN) THEN ERROR(43)3% 
INSYMBOLS% 
END ELSE BEGIN ERROR(2)5 SKIPCSEMICOLON) END32% 


END ELSE% 
EGINS | 
NE WNAME CCURNAME1 »CURNAME2 sCURLEVEL)3 INDEXteTHISINDEX3S 


T3280} = T3eINFOS*NUMPARAMS*+ 13% 
T3,IOCLASS#*IF FUN THEN FUNC ELSE PROCS4% 
NAMETAB3CCURLEVELs INDEX) 887 33% 
INSYMBOLS PARAMETERLISTS% 
IF CURSYSCOLON THEN’ 
BEGINS 
IF NOT FUN THEN ERROR(48)3% 
INSYMBOL 3% 
IF CURSYsIDENTIFIER THENS 
BEGINS 
SEARCH3% 


IF FOUND THENS 
BEGINS 
IF THISID.«IOCLASS*#TYPES THEN 
BEGINS 
TEsTYPETABICTHISIO,TYPEI3% 
IF T,FORMSALFA OR T,FORMSPOINTERS THENS 
BEGINS 
NAME TAB 3CCURLEVELs INDEX] eTYPESETHISIDS TYPES 
END ELSE ERRORC38)3% 


END ELSE ERROR(7 )3% 
END ELSE ERRORC1I54% 
ENO ELSE ERROR(9)244 


INSYMBOL3% 
END ELSE IF FUN THEN 


03294 


03295 
03296 
03297 
032968 
03299 
03300 
03301 
03302 
03303 
03304 
03305 
03306 


ee 


03307 T 


03308 
03309 


03310 
03311 
03312 
03313 
03314 
03315 
03316 


03317 
033186 


03319 
03320 


03321 
03322 
03323 
03324 
03325 
03326 
03327 
03328 
03329 


03330 
03331 
03332 


03333 
03334 


+4 


ee 


Le 


—4 


44 4 


0381 
00003294 
00003294 

0399 

0401 

0403 

0403 

0404 

Q408 

0406 

0409 

0410 

0412 

0415 

0416 
00003300 
00003306 


00003297 


00003309 
00003308 


00003320 
00003320 
00003320 


00003327 
97 


00003324 
Q49@ 
0000332¢ 
0499 | 
00003319 
0304 
0504 . 
00003318 


00003320 


BEGIN ERROR(26)3; SKIPCSEMICOLON) END3% 


END3% 
END ELSE BEGIN ERROR (9)3 SKIPCSEMICULON) ENDJ% 


IF CURSYZSEMICOLON THEN BEGIN ERROR(25)3 SKIPCSEMICOLON) ENDS% 


IF FUN THEN GENC"FUNCTN"'*# 792) ELSES 
GENC™PROCEDU"»B8e1)3 GENIDC™ Vs JOOOXCURLEVEL*INDEX25)3% 


TR mNAMETABSCCURLEVEL,INDEXJ+INFQS TX8SeT+PARAMTABCT J3x% 
IF TX>T THENS 


BEGIN? 
GENCHCMe197)5% 


FOR 18™T+4 STEP 1 UNTIL 
BEGIN GENTDC"V"»1000 
IF BOOLEANCPARAMTABL IJ .PARAMFILE) THENS 
BEGIN’ 

GENC™o"sle7 se 


GENIDC*F™s yQ00x(CURLEVEL+ 1) +PARAMTABEI J »PARAMNAME 95) 3% 


GENC™ 2% 9197283 


GENIOC PI, Loggx(CURLEVEL41 )*PARAMTABE I ] ePARAMNAME 953% 


ENDs% 

IF J LSS Tx THEN GENGC™o%5157)3% 
ENDs% 
GENC™)3%2296)5% 
VALUEPARAMS$4F ALSE 3% 


FOR rssT+l STEP 1 UNTIL TX 00% 
IF PaRaMTaBll)ePaRaMKINDScCONST THENS 


BEGINS. 

IF NOT VALUEPARAMS THEN 

BEGIN GENC "VALUE", 6,3)3% 

~ VALUEPARAMS !®TRUES% 

END ELSE GENC"s 91572332 

GENTOC"V%s 1L000x(CURLEVEL +1 )+PARAMTABLCIIJ ePARAMNAMESS 3% 
END3% 
IF VALUEPARAMS THEN GENC™3"%5457)3% 


TX DOx 
x¢C CURCEVEL #1 )#PARAMT ABE IDs PaRaMNaMEs5 5% 


03335 
03336 
03337 


03338 
03339 
03340 


03341 
03342 
03343 
03344 


03345 
03346 


03347 
03348 
03349 
03350 
03351 
93352 
03353 
03354 
03355 
03356 
03357 


03358 
03359 


03360 
03361 
03362 
03363 
03364 
03365 
03366 


03367 


4aAan4 


ee ee 


0502 
00003335 
04 


00063308 
0504 
00003293 
00003337 
0506 
00003338 
9 


00003339 
0518 
00003340 
00003340 
43 


0546 

O549 

0548 
00003344 

O55? 

0564 


00003346 
5 


0576 

0577 
00003349 

6 


00083350 
0606 
00003351 
0609 
00003352 
0625 
00003348 
625 


00003354 
00003346 
35 


00003356 


00003362 


00003362 

00003364 
0674 

00003369 


00003360 
0688 
00003367 


ae ae 


DECLAREVARSC TRUE sPARAMTABsT+1,TX»CURLEVEL 414 23% 
END ELSE GENC™3™5157)3% 


INSYMBOLJ% 

IF CURNAMELS"7FORWAR*® ANDO CURNAME2s"D" THENS 

BEGINS 
NAME TAB3CCURLEVEL» INDEX ) eFORWARDDEF $34 3% 
NUMFORWARDS s ®NUMFORWARDS 413% 
GENC"FORWARD" 821 )5% 


INSYMBOL 34 
END ELSES 


BEGIN® 
CURLEVEL SSCURLEVEL 443% 
IF CURLEVEL2LASTREC THEN ERROR(55)3% 
BLOCKTABCCURLEVEL ] seNUMBLOCKS s 3NUMBLOCKS4 43% 
TEBCURFUNCS CURFUNCS#IF FUN THEN INDEX ELSE 715% 
BLOCK} Zxae COMPILE PROCEDURE BODY eee 
REPLace POINTERCNAMETABLIECCURLEVELs#J) BY 0% 

FOR MAXNAMES*#1 wORDSJ% 

CURLEVELP=CURLEVEL?43 CURFUNCISTs% 
TOPLEVELS =CURLEVEL3% 

ENOsS 


IF CURSYAZSEMICOLON THEN BEGIN ERROR( 25)3 SKIPCSEMICOLON) ENDS 
GENC™S%5157)35% 


IF SYMKINOCCURSYIJZINITIAL THEN INSYMBOLS% 
END OF PROCEDURE DECLARATION;3& 


IF NUMFORWAROS>Q THEN ERROR(44)32% 
GENC"INTEGER's 891 )3% 


FOR Is#1 STEP 1 UNTIL MAXTEMPS 0O% 
BEGIN GENIDC"T"sIs2)3% 


IF I<MAXTEMPS THEN GENC’o"%5407) ELSE GENC™3%515775% 


END 3% 


IF CURSY*BEGINSY THENS 

BEGIN ERROR(39)3% 
WHILE SYMKINOCCURSYJZINITIAL DOS 
BEGIN INSYMBOLS SKIPCSEMICOLON) ENDS% 


UF CCURSYSTYPESY )OR(CONSTSY<CURSY AND CURSYSPROCSY )THENS 
GO To START3% 
ENDS% 


OF CURLEVEL&1 THEN% 


03368 
03369 


03370 
03371 
03372 
03373 
03374 
03375 
03376 


03377 
03376 


03379 
03360 
03381 
03382 
03383 
03384 
03385 
03386 
03387 
03388 


03389 
03390 
03391 


03392 
03393 


03394 


03395 
03396 
03397 


03398 
03399 


03400 


03404 


03402 
03403 
03404 
03405 


03406 
03407 
03408 


03409 


47 + SHAH Ot tt — 


14 


a 


~ 


+ 


ee 


0698 

0701 
00003343 
00003369 

O714 

0714 

O714 

0713 

0714 

071° 

0718 
00003376 

O727 

0728 
00003373 

0728 

0734 

0732 

0734 

0736 

0739 

0746 

0742 

0746 

0748 

o749 
00003379 

0749 
00003390 


751 
00003391 

07686 

0762 
00003290 

63 

0763 

0763 

0766 
00003397 

778 


O77? 
00003399 
9 


00003400 
00003400 
o80R 
00003399 
08114 
0614 
081g 
0814 
00003405 
16 


0819 
0819 


00003403 _ 


0819 


BEGIN2 
GENCNINITC™s523)34% | 


If INPUTDECL THEN GENC™TRUE"24e4) ELSE GENCWFALSE"4523)3% 


GENCHI3%,296)5% 
ENDs% 


FOR IsaFIRSTFILE STEP 4 UNTIL NUMFILES 00% 
IF FILETABCI) LSS O THEN% 
BEGINS 
GENC™CHFIL ("2 602)3% 


GENIDC"Fs LOOOXCURLEVEL"FILETAGLIIM195)9% 
GENC™)3%,206)3% 
END% 
ELSEX 
BEGINS 
GENIDC "I, LO00XCURLEVEL+FILETABLCI)s5)4% 


GENC™ %o407)3 GENCMBYF SIZE" es 79195 GENC™EEBOF%o593)5% 


END3% 

NUMFILESt®FIRSTFILETL 3% 
x 

COMPSTAT3 Swew COMPILE STATEMENT PART wee 
x 


FOR ys#LASTRec STEP 1 UNTYL TOPREC™1 pOs 
REPLACE POINTER(NAMETABICI,*]) By O FOR MAXNAMES#1 WORDSIg 
FOR yt=FyRSTLAB STEP 4 UNTIL NUMLABS DO% 
IF LABTABELCITJ+LABUEF SO THEN ERROR(93)3% 
LASTRECS*TOPRECAS% 

NUMLABSI*LABTABTOPIS 
FIRSTLABt=FORMERFIRSTLABSS 
NUMCONSTS#tacONSTTABTOP 34 
NUMTYPEStsrYPETABTOPSS 
NUMPARAMS tm PARAMTABTOP}& 

IF CURLEVEL21 THEN GENC TEND 96495 )3% 


END OF BLOCKS — 


03410 T 
O34) T 


o34ie 7 


03413 T 
03414 T 


03415 T 
03416 T 
Q3417 T 
03418 T 
03419 T 
03420 T 


03421 


T 
03422 T 
03423 T 
03424 7 
03425 y+ 


03426 


03427 
03428 
03429 
03430 
03431 
03432 
03433 
03434 
03435 
03436 
03437 
03438 
03439 
03440 
03441 


SS LL. 


03442 


~4 


40 1S 988 LONGs 


00003411 
0839 


00003412 


~ 00003412 
85p 
00003413 


00003410 
0864 
0864 
0865 
0865 
00003418 
87a 


00003419 
0868 
00003420 
0897 
00003417 
0897 
0897 
0900 
00003424 
0913 
00003425 
00003425 
00003425 
0940 
00003423 
942 
0943 
0943 
0944 
0944 
0948 
O9S? 
0958 
0963 
0963 
0964 
0964§ 
0966 
0966 
0967 
90003444 
0977 
00003150 


NEXT SEG é 


i 
t 


REVVAVLARLLLEAKL GAA SLALLARLLLRELALAAAAALALALLARALALAAARERALAARALAALALATA 


PART 9% THE MAIN PROGRAM, 


RELA UVALALALALATSALATAT ATLA LARA SAR AURSALALALARLARAALARTAALARAALTAATALLAZ 


% & 
* * 
% a 
x a 
a a 
x ae@Ga ®e ner eee eeu > 5 
x ] 
% % 
F 4 a 
x x 
> 


% 
INTEGER PROGNAMELENGTHS% 
ALPHA PROGNAME,ALGOLNAMES & 
% 
ALGOLNAME Fa"PASCOOO"MBENTIERCTIMECG4) MOD 10)C178516)5% 
ALGOLNAME tsALGOLNAMEGENTIERCTIMEC4S)OILV 7)CL18586)3% 
ALGOLNAMES#ALGOLNAMEGENTIERCTIME( 4S )MOD 9)(58586) 5% 
USER ESTIMECH1)I% 
FILL PASCALGOL WITH ALGOLNAMESUSERSS 
BEGINS 
Fike PASCRUN DISK SERIAL "PASCRUN"/"D ISK" (29102150)3% 


ARRAY BUF LO89)4% 
LABEL EOF 3% 


% 
WHILE TRUE DO% 
BEGINS 
REAOCPASCRUN®9sBUFCa]) CEOFI3% 
WRITECPASCALGOL»102BUFL#))3% 
ENDS% 
EOFS% 


END OF TRANSFER OF RUN TIME SYSTEM33% 


CARDLENGTHS=723% 
INITIALIZES NEWCARDG’S 


LISTOPTIONS sCHECKOPTIONSSTRUES% 
Cre "3 INSYMBOL3% 
IF CURSY®PROGRAMSY THEN 
BEGINS 
INSYMBOLJ% , 
IF CURSY@IDENTIFIER THEN 
BEGINS 
PROGNAME# @CURNAME1.(35$3633 PROGNAMELENGTHS SMINCOsCURLENGTH)3% 
INS¥YMBQOL3% 
IF CURSY#LPAR THEN 
BEGINS 
DO BEGINS 
INSYMBOL3% 
IF CURSY®IDENTIFIER THENS 
BEGINS 


03444 
03445 
03446 
03447 
03448 
03449 
03450 
03454 
03452 
03453 
03454 
03455 
03456 
03457 
03458 
03459 
03460 
03464 
03462 
03463 
03464 
03465 
START OF SEGMENT 
03466 
03467 
03468 
03469 
03470 
03471 
03472 
03473 


03474 
03475 


44 AN HH HH A 4H A HH ot tt ot ts 


44, IS 21 LONG,» 


03476 
03477 


03478 
Q3479 
03480 
03481 
03482 
03483 
Q3484 
03485 
03486 
03487 
03486 
03489 
03490 
03494 
03492 


T 
T 


SS  . 


0378 
0378 
0375 
0375 
0375 
Q375 
Q375 
0375 
0375 
Q375 
Q375 
0375 
0375 
0375 
037% 
Q378 
03748. 
0382 
0386 
03eP 
0391 
0394 
KeeeH eee 4j 
0004 
0006 
0006 
0006 
0007 
0007 
0013 
0017 
00003470 
0017 
0018 
00003464 
NEXT SEG e 
0394 
0394 
Q0003477 
00003477 
00003477 
00003477 
0460 
Q462 
0463 
0464 
0464 
0465 
0465 
0466 
0470 
0474 
0474 
0472 
0473 
Q47a 
Q474 


IF CURNAMEL@"S5SOINPUT™ THEN INPUTDECL&* TRUE ELSER 
IF CURNAMELs"60UTPUT" THEN OUTPUTDECL#2TRUE ELSES 
BEGINS 

IF CURLENGTH>6 THEN ERROR(77)3% 

NUMEXTF [LESH®NUMEXTF ILES413% 

IF NUMEXTFILESSMAXEXTFILES THENS 

EXTFILETABCNUMEXTFILES] $SCURNAMEY ELSES 

IF NUMEXTFILES*MAXEXTFILES+1 THEN ERROR(73)3% 
END3% 


END ELSE ERROR(9)3% 


INSYMBOL2% 
END UNTIL CURSYFCOMMAs2 


IF CURSYZRPAR THEN BEGIN ERROR(46)% SKIPC(SEMICOLON) ENDS 


IF CURSY@APAR THEN INSYMBOL3% | 
IF CURSY#SSEwMICOLON THEN BEGIN ERRGR(25)4 SKIPCSEmICOLON) ENDS 


END ELSE BEGIN ERROR(58)3 SKIPCSEMICOLON) END3% 
END ELSE BEGIN ERROR(9)3 SKIPCSEMICOLON) END32 
END ELSE BEGIN ERROR(75)3 SKIPCSEMICOLON) ENDSX 


INSYMBOL3% 
CURLEVELsei3% 
LASTREC§SMaxTaghES+) 3% 
RULVUAVAVALVATVULAVVTAVURSALATAVAATALLALABALATALULALALLALATARLAAUATARLALAZ 
% % 
BLOCKS % COMPILE USER PROGRAMe % 

% % 
RXLLVUTLTRVAUTTUYSLEGLTVALAVALLALALLSLALTAVALUALAGALAARTALARSALUTERSASAARVATIAZ 
IF CURSYZDOT THENS 
BEGIN 

ERROR(76)3% 

QO gLOcK UNTIL CURSY®00T3% 
END3% 


IF FALSE TMENZ 

BEGIN3% 

ENDOGFINPUT!? ERRQR(87)3 CHARCNT i awlsx 
WRITECLINESe TERMMESS 235% 

END32% 


IF LISTOpTION aND CRHARCNT2O THEN pRINTLINE3S 


IF ERRINX>O THEN PRINTERRORS}S 
WRITE CLINESCOBL))3% 
WRITECLINESCOBL) 233 
IF NUMERRS#O THENS 


03493 
03494 
03495 
03496 
03497 
03498 
03499 
03500 
03501 


03502 


03503 
03504 


03505 


03506 
03507 


03508 


03509 


03510 


03511 
03512 
03513 
03514 
03515 
03516 
03517 
03518 
03519 
03520 
03524 
03522 
03523 


03524 
03525 
03526 
035e7 
03526 


03529 


03530 
03531 
0353¢e 
03533 


er ee 


+ 


ee ee ee Le 


44-441 


00003495 
91 
00003492 


00003489 
00003505 


00003507 
0502 


00003488 
00003508 
0504 
00003484 
00003508 
0506 
00003484 
00003510 
05086 
0508 
0509 
0510 
0510 
0510 
O11 
0511 
0511 
O14 
0512 
0513 
0514 
00003520 
O514 
0515 
0515 
0517 
0520 
00003525 
20 


00003529 
00003529 
000903529 

0565 

0567 

QO574 

0575 


BEGINX 03534 T 0576 
ARRAY ZIPARRAYCO819]» Z2(010)4% 03535 T 0576 
START OF SEGMENT wewedeneene 4g 
POINTER ZIPPNT3% 03536 T 0008 
% 03537 T 0005 
DEFINE ZIPTEXTCTEXTeL) 8% 03538 T 0005 
BEGIN’ 03539 T 0005 
ZCOJISTEXTIS 03540 T 0008 
REPLACE ZIPPNTSZIPPNT BY POINTER(ZE*])¢( Be) FOR [3% 03541 T 0005 
END&3x 03542 T 0005 
% . 03543 T 0005 
PROCEDURE ZIPNUMCN)3 % TRANSFERS A NUMBER TO THE ZIP BUFFER® 03544 + 0005 
VALUE Ns INTEGER N3% 03545 T 0008 
IF NS9 THEN ZIPTEXTCNe1) ELSEX 03546 7+ 0005 
00003546 
BEGIN ZIPNYMCON DIy 10)3 ZIPTEXTCENTIERCN MOD 10)91) ENDS 03547 T O014 
00003547 
0008354? 
% 03548 T O02? 
WRITEALGOL3% 03549 T OO2P 
WRITECPASCALGOL»LASTLINE) 3% 03550 T 0027 
LOCK CPASCALGOLs SAVE )3%. 03551 T 0036 
ZIPPNTS#POINTERCZIPARRAYL #) 4% 03552 T 003 
REPLACE ZIPPNT BY " ™ FOR 20 WORDS3% 03583 T 0033 
WRITECE INES» NQERRORS ) 3% 03554 7 O003F 
ZIPTEXT(™CO 5373 ZIPTEXTC™COMPILE" 73% 03555 T 0049 
00003555 
. . 00003554 
ZIPTEXFEC™ Mods ZIPTEXTCPROGNAMEsPROGN aAMELENGTH) 3% 03556 T 0055 
00003556 
a 00003556 
ZIPTEXTC/y1)3 ZIPTEXTCUSER,7)3% 03557 T 0069 
00003557 
00003557 
ZIPTEXTC™ y~ALGOL"»7)3 ZIPTEXTC™ "91958 03558 T 008% 
00003558 
| 00003558 
IF SAVEFACTOR>O THEN ZIPTEXTC"LIBRARY"97) 3% 03559 T 0098 
00003559 
IF SAVEFACTOR<O THEN ZIPTEXTC™SYNTAX"96)3% 03560 T 3] (ar 
00003560 
ZIPTEXTC™S %04)3% 03561 T 0118 
Alte ete ae Dc oke : — 90003564 
ZIPTEXTC™XALGOL" + 6)3 ZIPTEXTOC™ FILE 523% 03562 T 0123 
00003562 
ate oe Bi ee 6 - 00083562 
ZIPTEXTC” cARDe%s6)3 ZIPTEXTCALGOLNAME?7 93% 03563 T 0137 
00003563 
ne, vate Rect ete, Namtopemeet lane ante oo peel ns Sasa 5 eee 00003563 
ZIPTEXFEC%/ 4413 ZIPTEXTCUSERs7)3% 03564 T 64 
00003564 
ae A ees Oe ee se Geese : . 0009039564 
ZIPTEXEC™ SERIAL™27)3 ZIPTEXTOC™3%5 428% 03565 T 0475 


IF SAVEFACTOR>0O THEN’ 


BEGINS 


ZIPTEXTCMSAVE™"s5)3 ZIPNUMCSAVEFACTOR)&% 


ZYPTEXT CMS" 15% 


END3% 


ZIPTEXEC "END %24)5% 


ZIP WITH ZIPARRAY(*#J3% 
END OF COMPILER ZIP ELSE*% 


BEGINS 


INTEGER 13% 


SWITCH FORMAT ERRORMESS] 32% 


nw 
3 
L.8) 
L ot 


7 «) 
Se | 
(Cw 2 
"wm 3 
«(s @ 
ch 5 
Cun 6 
(" Ff 
cc" 8 
(" 9 
(" 10 
Cw 11 
Cc" 12 
€# 13 
Cc" 14 
Cw 15 
«" 16 
Ce 1? 
Cc" 48 
«" 19 
(1 20 

22 


(" 23 
Cw 24 
AT 28, 
cH 26 
(" 27 
C" 28 
CW 29 
c" 36 
C" 31. 
(" 32 
C" 33 
«" 34 
¢" 35 


wee COMPILER ERROR *** CONTACT THE COMPUTER CENTRE eo") 9% 
IpENTIFIER NOT DEFINED s" 20% 

IDENTIFIER ALREADY DEFINED, ") 5% 

WRONG NUMBER OF PARAMETERS,") 5% 

SYNTAX ERROR») 2% 

Ha a NOT ACCESSIBLE (HARDWARE RESTRICTION) ,") 5% 
STRINGS mAY NOT BE CONTINUED FROM ONE CARD To ANOTHERe"),¢ 


A TYPE EXPECTED") 9% 


VARIABLE EXPECTEDe") 0% 
IDENTIFIER EXPECTEDe") 5% 


INTEGER CONSTANT EXPECTED )") 0% 


CONSTANT OF OTHER TYPE THAN EXPECTED,")s% 
VaRYTaBlLe OF ILLEGAL TYPE,") 0% 

UNRECOGNIZABLE STATEMENT o") 0% 

CONSTANT TOO Byg OR TOG SMALL,")0% 

UNDEFINED LABEL o™) 5% 

FOR AND CASE*STATEMENTS NESTED TOO DEEP ,")s% 
EXPRESSION IS QF WRONG TYPEe") 0% 

MHNQFeMM EXPECTED se") 2% 


hempgnn” EXPECTED)" 29% 


wHMELSEM" WITHOUT CORRESPONDING "*HTHENTHM GH) Lg 
ILLEGAL TERMINATION OF STATEMENT," 9% 
MHMUNTILG"” EXPECTED") 9% 

MAN TON MH AHH ALOWNTONPA EXPECTED se") 03% 
WOMENDU MH EXPECTED") 0% 

manguen EXPECTED "ok | 

Menmgnenm EXPECTED, ") 9% 

MHATHENTOM EXPECTED le) 9% 

mem gennn EXPECTEDs")e% 

ONLY NUMBERS MAY BE SIGNED,")»s% 

TOO MANY CASES,")9% 


LABEL USED MORE THAN ONCE >") 5% 


CONSTANT EXPECTED." )s% 

LABEL NOT IN RANGE 0,.9999,"%)5% 
TOO MANY LABELS DECLARED,")»% 
TOO MANY CONSTANTS DECLARED so") o% 


03566 
03567 
03568 


03569 
03570 
03571 


03572 
03573 


444 


+ 


+ 


42 18 222 LONGe 


03574 
03575 
START OF SEGMENT 
03576 
START OF SEGMENT 
03577 
03578 
03579 
03580 
03581 
03582 
03583 
03584 
03585 
03586 
03587 
03588 
03589 
03590 
03594 
03592 
03593 
03594 
03595 
03596 
03597 
03596 
03599 


03600 


03601 
03602 
03603 
03604 
03605 
03606 
03607 
03608 
03609 
03610 
03613 
036142 


T 
T 


00003565 
‘. 00003565 


0190 
0194 
0194 | 
00063568 

199 


00003569 
206 
00003567 
0206 
00003571 
O2ia 
0215 
00003534 
NEXT SEG 2 
0577 
Q577 


weeeeken haw 43 


T 


0008 


eeetthaetene 44a 


a a ata st to 


0006 
0000 
0006 
0000 
9000 
0000 
0000 
0006 
0000 
0000 
0000 
0000 
0006 
0000 
0008 
0000 
0000 
0000 
0006 
0000 
0000 
0000 
0000 
0000 
0000 
0008 
0000 
0000 
0000 
0008 
0000 
0008 
0000 
0000 
0006 
0000 


Cr Sr ae Vy Vy Sy Se a” va 9 


58 
59 


wanennw EXPECTED") #% 

THE LIST IS TOO LONG,") 9% 

INVALIO TYPE FOR A FUNCTIONS") 0% 

PMMBEGING? EXPECTED,” 0% 

TOQ MANY IDENTIFIERS DECLARED. ") 0% 

ALFA CONSTANS MaY NOT BE LONGER THAN 7 CHaRacTERS,") 0% 
EXPRESSION IS NOT OF TYPE BOOLEANe") 5% 

NOT PROPER FORWARD DECLARATION," ) 5% 
UNSATISFIEO FORWARD DECLARATIONS") o% 

TOQ MANY DIFFERENT TYPES DECLARED.") 5% 

mam ynnn EXPECTED,” )#% 

wencann EXPECTED, "29% 

A SIMPLE TYPE EXPECTED." )0% 

wetARRAY OF ARRAY"™" AND "HMARRAY OF RECORD™O" ILLEGAL» 
" AS FILE TYPE,") 0% 

"eMPILe OF FILEP"" IS ILLEGAL» ")s% 

SeT BOUNDRY yS TOO Byq OR TOO SMALL") 0% 

TOO MANY UNDECLARED POINTERS «") 5% 

mam mmm EXPECTED") 0% 

FIRST VALUE IS GREATER THAN SECOND VALUE," 0% 
TOO MANY RECORDS OECLARED AT ONE TIME.")5% 
THE RECORD CONTAINS MORE THAN 1023 WORDS.") 9% 
FILES NOT ALLOWED IN RECORDS,")0% 

mrncnmn EXPECTED se”) 2% 

wwe jenn EXPECTED, "24% 


SWITCH FORMAT ERRORMESS2 353% 


«" 
qc" 
( 


60 
61 


6? 


C* 63 


( 
«" 
qr" 
qf" 


64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 


' 78 


79 
80 
8% 
68 
83 
84 
85 
89 
87 


WHMARRAY OF FILE" NOT ALLOWED, ") 5% 

RANGE OF INDEX IS GREATER THAN 10234%)s% 
UNSATISFIED POINTER DECLARATIONs") 5% 

EXPRESSION IS Top LONGs")9% 

ILLEGAL OPERATOR FOR THIS TYPE OF EXPRESSIONe") 0% 
INTEGER EXPRESSION EXPECTED: pad 

A SET EXPECTED.") 9% 

PARAMETER OF ILLEGAL TYPE,") o% 

PROCEDURES NOT ALLOWED IN THIS CONTE xT.") 0% 
ILLEGAL USE OF THIS TYPE OF IDENTIFIER,") 5% 

TOO MANY PARAMETERS DECLARED IN THE PROGRAM," ) 0% 
MHMARRAY OF CHART" EXPECTED se") 9% 

WRONG TYPE OF SET EXPRESSIQNe™ 9% 

TOQ MANY EXTERNAL FILESs")s% 

ILLEGAL IDENTIFIER FOR EXTERNAL FILE") 9% 
HHMPROGRAMOMM EXPECTED") 0% 

wee nee CXPECTED AT END OF PROGRAM," ) 5% 
EXTERNAL FILE IDENTIFIER MAY NOT EXCEED 6 CHARACTERS,")o% 
ILLEGAL FILE PARAMETER," ) 0% 

ILLEGAL USE OF FILE HANDLING PROCEDURE se") 5% 
TEXT@FILE EXPECTED.) 9% 

POINTER VARIABLE EXPECTED," ) 2% 


ONLY VALUES OF TYPE REAL» INTEGER QR CHAR MAY BE READe") 9% 


VARIABLES IN RECORDS ILLEGAL IN THIS CONTEXT,")e% 
DISPLAY OVERFLOW." )0% 

READ AND WRITE MaY ONLY BE USED ON TEXT*FILESe") 0% 
REFERENCED OBYECT IS TQO BIG,")e% 

ENDO"OFTINPUT DISCOVERED »")s% 


03613 T 9000 
03614 T 0000 
03615 T 0008 
03616 T 0000 
03617 Tt 0000 
03618 Y 0008 
03619 7+ 0000 
03620 T 0000 
03621 T 0000 
03622 T 0006 
03623 T 0000 
03624 T 00086 
03625 T 0000 
03626 T 0000 
03627 T 0000 
03628 + QO000 
03629 T 0000 
03630 T 0000 
03631 T 90000 
03632 T 0000 
03633 T 0006 
03634 T Q000 
03635 T 0o006 
03636 T 0000 
03637 7 0000 
44 1S 890 LONGse NEXT SEG 
03638 7 0000 
03639 T 0006 
START OF SEGMENT weewdtawen 
03640 fT 0000 
03641 tT 0000 
03642 T 000¢ 
Q3643 ¥ 0000 
03644 TF Q006 
03645 FT QO000 
03646 -t 0000 
03647 T 0000 
03648 T 0000 
03649 T 0006 
Q3650 T 0000 
03651 T 0000 
03652 T 0000 
03653 T 0000 
03654 T 0000 
03655 y 0000 
03656 T Q000 
03657 7 0000 
03658 T 0006 
03659 T 0000 
03660 T 0000 
03661 T 0000 
03662 T 0006 
03663 T 90000 
03664 7 9000 
03665 TFT 0008 
03666 7+ 0000 
03667 T 0Q00@ 


43 


45 


FPS 


END OF ERROR MESSAGESs% 


Cw 68 
(" 89 
¢* 90 
(" 94 
(" 92 
¢ 93 
(" 94 
Cw 95 
(" 96 


CHARACTER ARRAY EXPECTED") 2% 


mam,zern EXPECTED," 2% 
PROCEDURES MAY NOT HAVE ANY TYPE] 0% 
PARAMETER OF WRONG KIND,"),% 
ONLY COMPLETE ARRAYS aND RECORDS MaY BE TRANSMITTED," 0% 
DECLARED LABEL NOT USEDs"),% 
PaRaMETERS OF THIS TYPE SHOULD NOT BE VALUE PARAMETERS") 0% 
ASSIGNMENT OF STRUCTURED VARIABLES NOT IMPLEMENTED se") 93% 


INPUT/OUTPUT NOT DECLARED," 5% 


(" 97 TOO MANY FILES IN USE,")s% 


(* 98 
(# 99 
C)s% 


WRITECLINESs ERRORS»sNUMERRS)3% 


RECORD IDENTIFIER EXPECTED.")»% 


UNRECOGNIZABLE ITEMet) 9% 


FOR 1t*0 STEP 1 UNTIL 59 pO IF ERRCI] THENS 
WRITECLINESs ERRORMESS1(J 393% 
FOR ~#"60 STEP 4 UNTIL 419 DO JF ERR(Y) THEN® 
WRITECLINES» ERRORMESS2( [060))3% 


IF XREFOPTION THENS 


BEGINS 
RePLace POJNTERCXREFLINEL#I) BY " " FOR 17 WORDSIS 


HEADINGS% 
SORTCPRINTXREF »XREFFILE,O »XREF MAX »XREFCOMPARE,3,1000,6000)3% 


END3% 


END OF COMPILER+% 


00030200 00000000 


00000000 
43250005 
6304 0007 


00 4103 200 
0000 
fese at 
00116432 
po nereee 

0 4639360 


00000047 
1447 9 2 
Moosdos 

peconcnc 

00000000 

00000060 

45424000 

55316473 

4457 4663 


00006246 
2192232 
2354644 
00000000 
C000 9469 
246051463 
19546113 
00220214;4 
Oy 1g eaae 
41954 


64542325 
4327 1147 
24319242 
24625163 
06606005 
20000000 
16345200 
71060224 
pedanee 


60042321, 54240002 


2402 2232 

6060600 

02606005 
60059469 
24625 163 
1045 7536 
00326574 
01212657 
03054267 


43274643 
47 236203 
24625463 
5 4630400 
060044002 
04000000 
42036440 
07274266 
64556340 


04000000 
00041400 
5 4644500 
02001002 
120 20000 
00000000 
10373465 
00434327 
01315432 7 
02463545 6 


00000000 
00000000 
06, 40000 
00000000 
00000000 
000000 24 
43.900000 
Speer 
53343 
11772 


43344525 
0000675 
0000000 
00000024 
00 24695 
62516307 
10111246 
00543415 
gisecr ay 
0233004 


03668 T 0000 
03669 T 0006 
03670 T O000 
03671 T 0000 
03672 T 0000 
03673 tr 9000 
03674 T 0006 
03675 7 0000 
03676 T 0006 
03677 T 9000 
03678 T 0006 
03679 T 0000 
03680 t 0000 
45 15S 430 LONG» NEXT SEG 43 
03681 T 0000 
03682 T Q000 
03683 7+ 0000 
03684 7 OQQ0?7 
03685 T 0008 
03686 T QO045 
03687 T 0016 
03688 T 9023 
00003574 
43 1S 28 LONGs NEXT SEG rd 
03689 T 0578 
03690 T O578 
03691 T O57@ 
03692 7 0588 
0000369¢ 
03693 T 0604 
03694 T 0624 
00003690 
Q3695 T 0624 
00000027 
2 1S 630 LONG» NEXT SEG 1 
START OF SEGMENT wawettwean 464 
46 IS 4 LONGs NEXT SEG 1 
11S 2 LONGs NEXT SEG Q 
62 IS 69 LONG» NEXT SEG 0) 
62606005 43344525 620003,4 
22262634 43196751, 2526263, 
00 246954 630 16060 0524608, 
625146303 60600524 62816303 
63056060 05246281 63050043 
60600524 62536307 00000000 
27620000 00013510 35864 Q00 
74157602 0065432; 27443543 
47406234 04525432 91307703 
74627437 0341206 76375347 


SEGDICT 


00000000 
00000000 
00034500 
00030304 
00033600 
00035300 
00037504 
00044400 
19027700 
10001400 
10027400 
00000000 
43250005 
63940007 
00440200 


PRT 


00000000 
00000000 
65406600 
67400400 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
66400 300 
00000000 
65924400 
00000000 
00000000 
00000000 
65406 100 
00000000 
00000000 
00000000 
66042400 


65405700 


00000000 


00000000 
07600007 
76200203 
40§00270 
5 3000436 
21600525 
41100647 
33604043 
003400047 
00100022 
00400044 
00000047 
14472362 
14000000 
00000000 


00000000 
00000000 
06600000 
00400000 
00000000 
90000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
90000000 
00300000 
00000000 
00200445 


00000000 © 


00000000 
00000000 
06400000 


00000000 


00000000 


00000000 
00201004 
05700000 
00000000 


00002200 
00000000 
00031601 
0003250, 
00034000 
00035700 
00037400 
00042000 
10024200 
10001506 
10020600 
21622321 
23546445 
90060000 
00002460 


¢€0000000 
000000080 


65406700 
00000000 


00000000 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 
Cc000000 
00000000 
0c000000 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 


0.0000000 
00000000 


65400400 
00000000 


00000000 


00000000 
00000000 
65020206 


00000000 


. 90000000. 


00000000 
65406500 


65406400. 


00000000 


00201126 
10400032 
42000150 
74700325 
35200452 
32300532 
6214 100634 
03404107 

09400004 
00100023 
00400042 
4327 4147 
24346242 
24625163 
54630460 


00000000 
00000000 
06700000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
09900000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000. 


00000000 
00400146 


00000000 


00000000 
00000000 
00000000 
00200333 
00000000 
00090000 
00000000 
06500000 
06400000 
00000000 


oo0024ol 
0002000; 
00032000 
00032700 
00034300 
0003640, 
00037704 
2004240; 
19000500 
10001600 
20003300 


3488836? 
02606005 
60052462 


00000000 
00000000 
65407000 
65027200 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000 
65027600 


65407500 0 
65021200 


00000000 


00000000 
00000000 
65024300 


00000000 


900900000 


00000000 
00000000 
65402000 
00000000 


16601100 
36100054 
27400204 
11200322 
54000462 
27700550 
72200702 
11604934 
00300002 
00100024 
19504407 
43274643 
47246223 
246251463 
54630400 


00000000 
00000000 
07000000 
00201163 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
04003347 

500000 


00200202 


00000000 


00000000 
00000000 
00200363 


00000000 


909000000 


00000000 
00000000 
0200066) 
00000000 


20017600 
20027500 
00032400 
00033 100 
00034500 
00036300 
00040400 
20042200 
19042700 
10042600 
00000000 
0004 1,400 
5 4644500 
020013002 
12020000 


00000000 
00000000 
00000000 
00000000 
66407600 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


— 00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


00000000_ 


00000000 
00000000 
00000000 
65400200 
00000000 
00000000 
65400500 
00000000 
00000000 
65024400 
00000000 
00000000 
00000000 
66401100 


65402400 


00000000 


05600001 
01500050 
32500233 
36200367 
13000476 
04400600 
23500743 
65601060 
001400004 
001000¢7 
00000000 
00000000 
06440000 
00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
07600000 
0090090000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00200105 
00000000 
00000000 
00504432 
00000000 
00000000 
00200365 
00000000 
00000000 
00000000 
01400000 
02400000 
00000000 


00020500 
00031300 
00030200 
20033200 
00034700 
00036500 
00040204 
20022400 
10030400 
10003400 
43334525 
0000675 

00000006 
00000024 
0024698, 


00000000 
00000000 
00000000 
00000000 
65407200 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000 


00000000 
00000000 
009090000 
65024100 
00000000 
00000000 
66405600 
00000000 
65407300 
00000000 


00000000 


00000000. 


00000000 
66401000 
00000000 
00000000 


15400003 
75200403 
66700243 
00600366 
22200904 
13500602 
7340078 
0040442 
00100006 
00100150 
62606005 
ge 262631 
02462054 
62546303 
63056060 


00000000 
00000000 
00000000 
00000000 
07200000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


09000000 | 


00200073 
00000000 
00000000 
05600000 
00000000 
07300000 
00900000 
00000000 
00000000 
00000000 
019000640 
00800000 
00000000 


000e2301 
00034400 
00030300 
00033400 
00035400 
000349200 
00040700 
19030000 
10027300 
10024000 
43334525 
rey wae 
630 1606 

60600524 
05246051 


65406200 
00000000 
00000000 
00000000 
00000000 
09900000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00000000. 


00000000 
00000000 


09000000 
00000000 


65020400 
00000000 
00000000 
00000000 
64021400 
00000000 
00000000 
00000000 
65407400 
65406000 
00000000 
65401200 


43500015 
63600132 
17000264 
72100446 
64700506 
36400606 
02801042 
00,000.20 
00400021 
00100040 
62000344 
g226 2031 
3246254 
62516303 
63650043 


06200000 


00000000 
00000000 
00000000 


00000000 


00000000 


00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 
00000000 


00090000 
00000000 


00200133 
00000000 


00000000 


00000000 
00200323 
00000000 
00000000 
00000000 
07400000 
06000000 
00000000 
01200746 


65401300 
00000000 
66402300 
6540 3000 
00000000 


00000000 
00000000 


00000000. 


65404800 
65405000 
00000000 
654952090 
66041700 
65406100 
00000000 
00000000 


SEGZERO 


00000000 
00000000 
00000000 
00000000 
00000000 


01300630 
00000000 
02301672 
03000505 
00000000 
00000000 
00000000 
g0000000 
04500612 
058001793 


90000000 


05200009 
00201102 
06400000 
00000000 
00000000 


00001134 
00000001 
00000000 
00000000 
00000000 


65031700 
65402200 
65402500 
00000000 
65403300 
65035500 
65404000 
00000000 
65037600 
00000000 
00000006 
66941300 
00000000 
650202086 
00000000 
00000000 


00000000 
00000000 
90000000 
cooooaco 
00000000 


NUMBER OF ERRORS DETECTED 5 


014400755 
02201370 
02500360 
00000000 


03300126 - 


036002433 
040014274 


090000000 
04404376 


00000000 


09000000. 


oo2oligi 
00000000 
00200333 
090000000 
00000000 


00000077 
57500014 
00000000 
00000000 
00000000 


Os COMPILATION TIME = 


66401500 
00000000 
66402600 
65403100 
00000000 
00000000 
00000000 
00000000 
65404400 
00000000 
66405100 
66942300 
65407 100 
65024300 
00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


01501403 
00000000 
02600000 
033490350 
00000000 
00000000 
00000000 
00000000 
04400000 
00000000 
05100022 
05300032 
07 300000 
00200363 
00000000 
00000000 


00001137 
00000000 
00000000 
00000000 
00000000 


66401400 
69033000 
00000000 
00000000 
63403400 
66035600 
63404400 
00000000 
65404600 
00000000 
66024500 
664954906 
65406300 
65024400 
00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


701 sSECONDSe 


014001134 
02301705 
00000000 
00000000 
03400000 
03600207 
04100042 
00000000 
04604704 
00000000 
00200642 
09400000 
06300000 
00200365 
00000000 
00000000 


00000430 
00000000 
00000000 
00000000 
00000000 


65401600 
00000000 
65402700 
65404300 
00000000 
66403600 
00000000 
00000000 
00000000 
00000000 
66041600 
6649559 
65407300 
00000000 
00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


PRT $yZE = p80s TOTAL SEGMENT S ,ZE = 15832 WORDS# DSK S]{ZE = 630 SEGSI NO, PgM, SEGS ® 


ESTIWATED C@RE STORAGE REQUIRED = 24408 WoRDS, 


ESTIMATED AUXILIARY MEMORY REQUIRED =» 


NUMBER OF CARD*y;MAGES PROCESSED = 


O WORDS» 


3685, 


01600266 
00000000 
02700744 
04300 362 
00000000 
03600940 
00000000 
00000000 
00600000 
00000000 
05200334 


0 02500000 


07300000 
00000000 
00000000 
00000000 


00004332 
00000000 
00000000 
00000000 
00000000 


65401700 
66402400 
00000000 
65403200 
65403580 
65403760 
65404200 
09000000 
65404700 
66041200 
00000000 
64495390 
64024400 
00000000 
00000000 
00000000 


00000000 
00000000 
00000000 
00000000 
00000000 


01700322 
02400000 
00000000 
03200532 
03800637 
03700321 
04200132 
00900000 
0470020481 
05100023 
00000000 
05300003 
00200323 
00000000 
00000000 
00000000 


Q0000044 
00000000 
00000000 
0090009000 
00000000 


i? < 
@eeeeeee%seeeese#§#eeeeeeeeé@ 


0005 *00000471* 
00000539 00000542 


0002 #00000597* 
00000599 


0002 #00000604* 


00000606 00000611 


0002 #00000618* 


00000627 


0004 *00000318* 


00000549 


00000555 


#0000033,% 00000332 00000334 4000003344 00000334 


ADDADOR 
0040 #00001165« 


00001178 *0000!1226* 


ADOR 
0037 #00002816* 


#90000824" 00002849 


ALFA 
0002 #00000094* 


000005145 00000763 
00082112 00002344 


ALFACONST 
0002 *00000196* 


00000754 00001004 


200002849 


000031556 
00002662 


00001556 


00002854 


00001752 
00002666 


00004948 


00002858 


00004849 
00002898 


00001964 


00000335 #00000335" 00000335 


00002880 200002881+ 0000288, 


00004854 
00003204 


00004995 


00001972 00004977 


00003326 


00000336 


00002945 


000864995 


00002314 00002662 00002666 


00000337 


00004996 


00002099 


00002898 00003204 


ALF ANUM 
0002 *00000860* 


00000893 


ALFANUM1? | 
0002 *00000866« 


00000893 


ALPATYPE 
0002 *00000163* 


#00000544+ 


ALGOLCARD 
0002 *00000130* 


000003602 


ALGOLCNT 
0002 «00000132 


0000028, 
+90000330% 
00000345 
000814809 
*00001903*% 
00004906 


*00001909* 
000014942 


00000899 00000903 

00000899 00000903 

00000754 00004508 00004523 00004527 00004556 00002334 00002662 00002666 00002898 00003204 
00000363 00000364 00000365 00000487 


00000584 00000290 00000293 00000306 00000344 00000323 00000326 #00080326% 00000329 00000330 
00000330 00000340 «4000003404 00000344 4000003444 00000341 00000344 40008039444 00000345 400000343% 
00000346 #00000 346* 00000346 *00000 965* #00000 487420000 809% 00004809 *0000;809% 00001809 #00001809* 
00004882 4000048824 00004882 4900019024 00004902 4000019024 00004900 4000039024 00003902 400004902» 
00001903 *0000190y4* 00001904 *00001904* 00001904 00001905 *00001905" 00061905 *00001905**00001906* 
00004907 400004907% 00004907 490004907% 00004908 400004906e 00001908 400004908» 00001908 00001909 


00001909 *00001909* 99001909 *99001909* g0001909 *00001909* g0001912 *QQ0019L2* go001912 *QQ001912* 
#000049424 00004942 *00004943* 00004943 *00004943% 00004943 200004943" 00004943 #000039 ,4 00001944 


400081944 00001944 4000049204 00004920 
00003929 #00001929* 00004929 *#00004929* 00004934 *00004934* 00004934 *00004940% 00004940 
4000049504 00004950 4000019504 00001950 400004950% 00004950 4000049515 00004954 400001951» 0000495, 


00001928 


#0000 195% 
0000496, 


00001927 400004927 % 00004927 400004927 44000049284 00003928 400001928. 


00004950 
00001952 


00004952 #00004952* 00004957 *00004959* 00004959 00004960 #00004960% 00004960 0000396, *00004964* 
#000049614 00004961 4000019644 00004964 4000019624 00004962 400001962u 00004962 00001966 40000;966« 


00004966 *00001966* 00004966 #0000 4966**000014967% 00004967 #0000 1967**0000 4968" 00004968 *00004968" 00003974 


4900039714 
*00001977* 
00001979 
700001994" 
#00001997* 
#900020044 
*00002049* 
#0000201464 
00009030 
00002048 
00002068 


00002090 
00082104 


00001974 400001975 00001975 4900049754 00001975 4000019764 00004976 4000019764 00004976 00001977 


00001977 *00001977* 00001977 *0000lO7g* 0000197g *0000197a* 0000! 97g *00001Opg* 00001979 *00001979* 


400004984y 00004984 00004990 4000049906 00001990 00004994 4000019944 00004994 400001994» 00001994 
00001994 400001995" 00001995 %90001995s 00001995 00003996 400003996% 00001996 400003996» 00003996 
000041997 *00004997% 00004997 *00001997% 00004997 *00004997* 00004997 00001998 *0000,998" 0000200, 
00002004 400002004% 00002001 «90002003» 00002003 00002012 400002012» 00002012 400002012 00002012 


00002042 *00002013* 00002043 *00002013* 00002044 #00002014* 00002044 *0000201,4* 00002034 00002046 | 


00002016 4000020268 00002026 400002027m 00002027 2000020284 00002028 00002029 400002029 4400002030« 
00002032 *00002032" 00002032 *00002036* 00002036 #00002036* 00002036 00002037 #00002037%#00002036* 
#000020382 00002038 4000020394 00002039 400002039% 00002039 4000020394 00002039 00002048 400002048» 
00005065 *00002065* 00002065 00002067 *00002067* 00002067 *00002067* 00002067 *00002067"% 00002067 
400002068 00002068 200002068« 00002068 4000020684x00002076e 00002076 w000020808 00002080 «00002090» 
*900002090* 00002090 *00002090* 00002090 90002101 *0009210)* OO004101 *oQ002101* gees to) *90092191* 
4000021014 00002101 2000024084 00002108 4000021154 00002115 400002129w 00002129 00002430 400002130 


00002130 00002130." 
00002139 w00002446* 


00002130 
00002146 


90002154 #000021454« 00002154 


000802467 #0@0021;67* 
#00002220« 00002220 w00002220% 00002220 #00002220+ 


*00002224* gnoc2224 


00002260 «00002260« 00002260 00002268 400002268« 
#00002269% 00002369 400002269 00002277 %00002277« 
#00002295* 08002295 *00002297* 00002297 *00002314* 


00002174 


#00002154" 00002154 
*00002474% 00002474 *00002474% 00002174 #00002474% 00002174 *#000022204 00002220 


00002230 *00002230* 00002230 


#00002430%*00002134" 00002431 «000021314 00002131 #00002131% 00002134 200002139% 
#00002446% 000021446 #00002;46% 00002146 #00002146" 00002146 


00002153 ~00002453* 


00002467 400002467 00002167 #00002167% 00002167 4*00002167% 


00002220 


00002248 *0000224%8* on00ee4s 


00002268 


00002280 400009280» 00002280 


00002224 
0000226¥% 


#000022246 00002224 #000022244 00002224 
O0d0e2g2 *Q0002252e O0002252 
2000022694 00002269 4000022694 00002269 
00002295 400002295¢@ 00002295 


00002334 *00002349* 000023819 *000023;49% 00002349 *000023;19* 


00002319 «000023198 00002319 2000023320" 90002332 200002335 00002335 


00009345 *00009354* 00002354 


00009363 4000023636 00002363 w00002377% 00002377 400002377» 
00002393 *00002393* 00003393 *00002393**00002403 


000093902 


00002342 4000023426 00002345 400002345s 


00002355 *00002355* 00009355 *00009355* 00002355 #00002395* 00002355 *00002355* 


#90000433e 00002433 w000024334 00002433 


49000204564 00002456 4000024564 00002456 
*0008245g* 9900245g *009002459* 00002459 *OQ002459* Qo002459 


ALGOLNAM 


Q002 *00003457* 
*0000345 9" 


ALGOLPNT 


0002 ~00000}34* 


¥00000365* 


00002474 4000095454 00002545 4000025454 


00002958 
00082976 


000030145 *00003046* 00003016 *000030,6* 


00002961 w00002961% 00002964 
#00002968* 00009968 — . 
00002977 400003977" 00002977 
#00082989" 09002982 *00002982* 00002982 
#00002988% 00002988 


00002969 %*00002969* 


243. 243 2433 00002434 w00002434+ 
0000a44F *0000 2447" 00002447 *0000aq47* 90002447 #0000 a4q47* 
00002457 4000024574 


00002545 
00002962 
00002969 
00002976 
00002984 


00002992 400002992% 00002992 


00003024 4000030244 00003024 
*00003031* 00003031 *00003034* 00003031 
00003036 400003036% 00003036 
*00003043* 90003044 *00003044* 90003044 
00003048 40000 30484%00003049% 00003049 
400003053 00003056 +00003056% 00003056 
00003061 #00003064* 00003064 
200003169 00003169 
00003339 000033398 00003340 #00003340* 00003340 #00003340* 00003340 00003344 *000033a4* 00003346 *00003346" 
00003346 700003349" 00003349 


00003060 


00003367 
00003397 
00003412 
00003420 
00003441 


E 


00000283 


00001907 
00003940 
00004974 
00001996 


4000033698 00003369 


00003027 
00003038 


00003350 +00003350« 
*00003354* 00003354 00003356 *00003356**0000 336 5% 
00003376 ~w00003376~" 
00003399 *00003399* 900003399 *00003400* 


00003046 
00003028 
0000 30 32 


400002584, 
#000029624200002963n 00002963 400002967" 00002967 
#00002970«% 00002970 
#00002978% 00002978 200002978e 00002978 40000298;,4 90002984 
#0000 2984 00002984 #0000 298q% 00002984 400002984» 00002988 


00002377 
00002403 
00002434 
0000 2447 
00002457 
90002463 
00002584 


00002984 2000023814 0000238; 400002392» 
00002434" 00002431, #00009433% 00002433 
000024454 00002445 4000024454 00002445 
"0000 gau7* 00002487 #0000 24484 0000 2q48 
7000020574 00002497 4000024584 00002458 
*00002HOL#*QQ0de4P4s o0002474 #000924 74 
2000025844 00002584 400002584 0200002958e 
00002968 
00002973 *000029734 00002973 *00002976" 


00003043 400003043 00003043 4000030,4e 00003044 400003015% 
00003047 *00003047* 00003020 *00003030" 00003020 *00003024* 


#00003028% 00003029 2000030294 00003029 «00003030% 00003030 


0000 3033 *0000 3033" 00003033 *00003033* 00003036 *00003036* 


#90003038e 00003040 4000030424 00003042 400083042n 00003040 00003043 


00003045 *90003046* 90003049 *90009046* 00003046 
+00003049w 00003049 4000030504 00003050 


00003047 *Q9000304F* 
00003083 4000030534 00003083 


40000 3056 4w0000305B8% 00003058 400003058n 00003098 4000030584400003060% 


#000034126 900003413 4000034434 90003443 


00003424 *090903424* 90003425 *00003425* 


00003469 *00003460* 


00000292 
00000366 
00001908 
000041950 
00004975 
00001997 


00000308 


*00000487* 


00001909 
00001951 
00004976 
00001998 


00003461 *09003461*% 


00000310 
000004688 
00001942 
00001952 
00004977 


00002001 


00000325 
00001809 
00001913 
00001958 
00001978 
00002003 


00003350 


¥00003064* 00003064 *00003062* 00003062 
00003473 4000034734 90003473 4000034784 00003478 2000031874 00003187 


00003354 


00003066 *00003066* 00003066 
00003390 #00003490. 


#00003554" 0000335, 00003352 20000335pe 


00003365 *00003364* 00003364 *00003365* 00003365 *0008336P* 


00003376 
00003400 
00003418 


00003425 


00003463 


00000330 
00001882 
00004944 
00004960 
00004979 
00002012 


00003391 


00003563 


00000338 
00001902 
00004920 
00001963 
00004984 
00002013 


#0000339,% 00003394 00003397 «00003397» 


*00003400* COCO gl *00003411* O0003411 *00003 412" 
400003448 ww00003619% 00003449 
*00003425* 99003425 *09003425* 0003441 *00003441* 


00003420 400003420« 


00000344 
00001903 
00001927 
00001962 
00001990 
00002044 


00000343 
00001904 
00001928 
00001966 
00004994 
00002016 


00000345 
00001905 
00001929 
00001967 
00004994 
00002026 


00000346 
00001906 
00001934 
00001968 
00001998 
00002027 


ALIST 


0003 *00000189* 


ANOSY 


0002 *00000198* 


ARRAYS 


0002 *00000096* 


ARRAYSY 


0002 ~00000208* 


ARRAYVAR 


0038 «00002945 


ARROW 


0002 #00000203* 


00002028 
00002068 
00000446 
00002268 
00002345 
00002434 
00002584 
00062977 
00003017 
00003043 
00003064 
00003346 
00003369 
00003420 


00001051 


00000478 


00001195 


00000940 


00002029 
00002076 
00002153 
00002269 
00002354 
00002445 
00002958 
000029784 
00003020 
00003044 
00003062 
00003349 
00003376 
00003424 


00000920 


00002064. 


00002714 


00002030 
00002080 
00002454 
00002277 
00002355 
00002447 
0000296] 
0000298) 
00003024 
00003046 
00003066 
00003350 
00003391 
00003425 


00001640 


00002124 


00002032 


90002090 


00002167 
00002280 
00002363 
00002448 
00002962 
00002982 
00003028 
0000 3047 
00003169 
00003354 
00003397 
00003441 


00001651 


00002725 


00002036 
00002104 
00002474 
00002295 
00002377 
00002456 
00002963 


00002964 


00003029 
00003048 
00003173 
00003352 
00003399 


00002985 


00002037 
00002108 
00002200 
00002297 
oogdgesal 
00002457 
00002967 
00002988 
00003030 
00003049 
00003178 
00003354 
00003400 


00002038 
00002419 
00002224 
00002314 
00002392 
00002458 
00002968 
00000992 
0000303) 
0000 3050 
00003;387 
0000 3356 
00003411 


00002039 
00002129 
00002230 
00002319 
0009098893 
00002459 
00002969 
00003013 
00003033 
00003053 
00003490 
0000 3362 
00003442 


00002048 
00002430 
00002248 
00002332 
00092493 
Or oueeee 
0006297 

00003044 
00063036 
0000 3056 
00003339 
00003364 
00003443 


00002996 *90002959* 00002997 *00002997* On002976 *00002977* Q000299% *00002992* 00003066 


00000477 00000478 000014184 00004264 00001265 00002688 


ARRSTRUCT 


0036 *0000264¢* 
*00002740* 00002744 *00002744* 


ARRTYPE 


00002065 
00002134 
00002252 
00002335 
00002434 
00002474 
00002973 
00003045 
00003038 
0000 3058 
00003340 
00003365 
00003448 


0000206? 
00002139 
00002260 
00002342 
000902433 
00002545 
00002976 
00003046 
00003042 
0000 3060 
00003344 
0000336? 
00003449 


@®eeeeeeeeeeseeeeeteee#eeeseeest ®@ 


0002 *0000009B8* 
00004200 


ASSIGN 
0026 *00002203* 


*00002210* 
ASSIGNMENT 
0002 #00002200*% 
00002239 
ASSIGNSY 
0002 *00000203* 
00004029 
ASTERISK 
0002 *00000197* 
00000478 


AX 
0002 *00000580* 


00000591 w0000059;4% 


AQ 
0002 *90000579* 


*#00000606* 


0002 *00000579* 
*00000606+ 


0002 *00000586* 
#00000627« 


0002 #00000604* 
00000606 


00002064 


00002231 


00002562 


00002210 


00001631 


00000608 


00002127 #00002725« 00002743 ~00002744* 00002985 


00002236 


00002586 


0000221) 


00001638 


00000592 


00000610 


00002235 


00001651 


00000609 00000627» 00000628 


00000628 


00000611 


00002236 


#00000592% 00000593 


#00000627* 00000628 


00000649 


000024925 


00000647 


00000637 00000640 «#90000642% 00000642 


O0002427 00002428 


00000648 00000650 


00000652 00000653 


0000068, 


BEGINNUM 
0027 *00002244* 


00002247 #00002247« 


BEGINSY 
0002 *00000204" 


00000937 


BITPATTERN 
0002 *00000214* 


00004308 
00004796 


BLANK 
0002 *00000858* 


00000869 
0000098 
00001035 


BLOCK 
0002 «00003149 


00003384 


BLOCKTAB 
0002 *00000138* 


00000594 


BQOOLEXPR 
0002 *00001814* 


00004824 


BCOLTYPE 
0002 #00000163* 


#90000518» 
00002355 


BRACKETSINWITH 
0002 *00000079* 


00001174 #00002506« 


00002950 


000014443 
08004799 


00000884 
00000983 
00004037 


00003442 


00002795 


00002269 


00000526 
00002393 


00002247 


00002588 


00001566 
00001804 


00000887 
00000985 
00004040 


00003546 


00003362 


00002355 


00004437 


00002260 


00003402 


00004649 
00001818 


00000899 
00000966 
00001043 


00003500 


00002393 


00004647 
00002269 


00000895 
00004004 
00001056 


00001668 
00002355 


00000904 
00004007 
00004064 


0000470, 
00002393 


00000903 
00004043 
00001068 


000044643 00003563 00003645 00004699 


00004708 


00000967 
00004027 
00003069 


00004799 


00081728 


00000968 
00084029 
00001072 


00004847 


00001754 


00000974 
00004034 


00001973 


00004769 


00000975 
00001033 


00002269 


BUF 
0041 #00003466* 
00003471 
BO 
0002 *00000579" 
*#00000606* 
Bi 
0002 *00000579* 
*#000680606« 
¢ 
0002 +00000863* 
00000869 
00000900 
00000968 
00000983 
00001007 
00001;034 
00001045 
00001065 
0029 «00002289% 
00002327 
CALLGEN 
0046 *00001737* 
#000014764« 
CARD 
0002 ~00000035¥* 
0000026$ 
CARDCNT 
9002 *#00000034* 
00000253 
00001198 
00081962 


00003472 
00000608 00000610 


00000609 


00000872 00000884 *00000g87* 00000889 00000894 *00000892* 00000893 00000894 *00000895* 00000899 

#0000090 442000009038 00000903 %00000903« 00000903 00000964 00000966 %00000967 00000968 400000968s 
00000969 *00000973* 00000972 00000974 *00000975* 00000976 *00000977* 00000977 00000980 *000009K82* 
400000983% 00000983 00000984 00000985 4000009854 00000986 #00000986e 00004002 40000100444%00001007% 
*00001013**00001027* 00001027 *00001027* 90001028 *090001029* 909008030 *00001031* C0001032 *00001033* 
#00004035# 00004036 #00004037% 00004038 *00004040w 00004044 #00004043» 00064043 #00004043+ 00001044 

00001046 00001047 00004048 00004049 00001051 00004055 00001056 #000810564#00001064% 00001062 

#00004068" 00004069 #00001069* 00004070 *00004072* 00002289 *00003479% 


00002329 
2000017774 00001798 


00000886 000041067 00003477 


00000275 00000362 00000409 00000594 00000886 #00000886s 00000886 00004067 4000010674 00001152 
00001314 00001418 00001469 00001480 00001487 00001494 00001609 00001844 00001909 00001914 
00002003 00002039 0000240, 00002146 00002222 00002432 00002446 4000034774 00003477 00003529 


a 


CAROLENGTH 
0002 *00000;60* 
00000273 00000398 00000886 
00001067 #00003476% 00003477 
CAROPNT ee . 
0002 #0000043," 
00000270 00000974 00000874. 
#00000959» 00000959 00000960 
00001004 00001007 00004043 
00004056 0000106; 00004066 
CASEHASH 
0029 *00002287* 
00002326 
CASEHASH1? 


0029 *00002287* 
00002326 
CASENUM 
00a9 *00002289* 
00002292 *00002292" 00002292 
CASEPART 
0037 #00002819" 
00002824 *00002857% 
CASESTAT 
9002 *00002285* 
00002348 00002590 


CASESY 


0002 #00000205* 
00000388 00000933 00002590 


CASETAB 
0029 #000022848« 


00000958 


00000885 


00000967 
00004027 
00004067 


00002345 


00002624 


00001054 400001055% 00004056 400001056« 00001087 400001058, 00001059 


00000886 2000008864 00000887 


00000968 
00004049 


00000974 
0000403, 


#00003067* 00004068 


00000975 
00004033 
00004069 


00000895 


00000982 
00004035 


000041072 400003477% 


00000895 


00080983 
00004037 


0000090, 
00000985 
00004040 
00003477 


00000904 
00000986 
00004043 


00002327 00002329 
CASETYPE 
0029 *00002289* 
#00002297% 00002298 4000022994 0000230, 00002304 
CASETYPE 
0037 *00002816« 
*00002875* 00002875 00002876 00002880 00002890 
CASETYPEID 
0037 *00002819* 
00002863 *00002875% 
CH 
0002 «00000128» 
0000029, 00000489 00000872 00000887 00000892 
00000975 00000982 00000983 00000985 00000986 
00001031 00001033 00001035 00001037 00001040 
00003904 00004905 000014906 000034927 00001928 
000019%g— ao002012 adn020!32 oo002014 goag2036 
00002349 0000243, 00002445 00002456 00002457 
00003043 00003020 00003049 0000306; 90003178 
00003419 00003424 
CHANGELINE 
0002 *0000187B* 
00001925 
CHAR 
0002 *00000089* 
00000523 00000693 00001499 00001303 00001357 
00001659 90001723 00001792 90001795 00001899 
00002440 00002202, 00002225 00002318 00002417 
00002763 00002781 00002877 00002903 
CHARCNT 
0002 «00000132 
00000273 00000398 00000869 00000872 


00002317 ~00002317% 00002318 


00002901 *00002901* 00002903 


00000895 
00003004 
00001043 
00004929 
00002037 
00000459 
00003340 


00004454 


00001972 
00002435 


0000090, 
00003007 
00001056 
00004950 
00002038 
00005474 
00003346 


00001466 


00001978 
00002449 


00000885 4000008B6% 00000886 
00000899 #00000895* 00000895 200000901" 00000904, 400000903» 00000903 00000958 
00000968 *00000968**00000974*% 00000974 *00000975* 00000975 *00000982* 00000982 *000009483* 00000983 


*00000985* 00000985 «00000986» 00000986 
#00001043*#00001027* 00001027 


00000903 
00004043 
00001061 
0000395 

0000204 

00002545 
00003350 


00001598 


00001997 
00002624 


00000967 
00061018 
000010468 
00004982 
000gei129 
00003963 
00003332 


00001599 


00002064 
00002662 


00000968 
00001027 
00001069 
pean oa 


00008239 
00002970 
00003365 


00001606 


00002077 
00002666 


00000974 
00001029 
00001072 
00004967 


00002295 
00002978 
00003399 


00001607 
o0002z12F 


00002724 


00000887 4000808874 00000892 «0000089 ge 
00000989 w00000967% 00000967 


00001004 200001004 00001007 00001007» 00001007 
00004029 *00004029*% 00001034 *00004031% 00001033 *00004033* 00001033 


00001008 


00000988 
00001043 
00001035 


#00001035* 


CHARCONST 
0002 «000001976 


0000074 3 


CHARPNT 
0002 *00000129* 


00080292 
00000975. 
00001029 
00004072 
00003967. 
000099095 
00002978 
00003399 


CHARTYPE 
0002 #00000163* 


#000005206 


CHECK 
0018 *00001881* 


#00001904% 


CHECK 
0044 *00001284% 


*#00001303* 
CHECKEXPR | 

0002 *00001146* 

00001154 


CHECKEXPR1? 
0002 *00001146* 


00004498 


CHECKEXPR2? 
0002 *¥00001146* 


00001035 


00004047 


*00000489* 


00000982 
oocolo031 
000014904 
00001968 
00002349 
00003013 
00003419 


00000745 


00001903 


00001304 


00001498 


000034448 


00001037 #00001037%%00001040% 00001040 
00081056 *00001056**00001059* 00001061 *00001061* 00001061 
00001068 ~#00001069% 00001069 #000040724 00004072 200003477 4x00003526e 00003529 


00004554 


00000874 


00900983. 


00001033 
00004905 
00002012 
00002431 
00003020 
00003424 


000014246 


00001910 


00001310 


00004448 


00002222 


00001556 


00000887 
00000985 
00001035 
00001906 
000020313 
00002445 
00003049 


000044923 


00002222 


00002432 


00002314 


00000899 
00000986 
00001037 
00004927 
00002044 
00002456 
0000306, 


00001556 


00002432 


00002446 


00002662 


00000895 
00004004 
00001040 
00003928 
00002036 
00005457 
00003178 


00002314 


00002446 


00001043 00001043" 00001043 4000010434 00001054 


00001066 


0000 2666 


00000904 
00004007 
00001043 
00001929 
00002037 
00002459 
00003340 


00002662 


00001067 *00001067* 00001068 *00001048* 


00002776 


00000903 
000040114 
00001056 
00004950 
00002038 
00002474 
00003846 


00002666 


00002893 


00000967 
00064043 
00001061 
00063954 
00002065 
00002545 
00003350 


00002898 


00002898 


00000968 
00001038 
00001068 
000049590 
00002429 
00009963 
00003350 


00003204 


00003204 


00000974 
00004027 
00001069 
00001966 
00002230 
00002970 
00003365 


00001198 


CHECKOPTION 
0002 *#00000159* 


*00001047* 


CHECKTYPES 
0002 *00000662a% 


00000696 
00082225 


CHECKTYPES1? 
0002 «90000662* 


00004199 
00002318 


CHECKTYPES2? 
0002 «00000662 


00001199 
00002318 


COLON 
0002 4#00000203* 


00080477 
00000912 


COMMA 
0002 *00000202* 


00000479 
00001924 
00002679 
00003504 


COMPSTAT | 
0002 *00002242« 
00002262 


CONCAT | 
0002 *00004094* 


00004499 #00001835* 


00001418 


00001198 


00001499 
00002318 


00001357 
00002435 


00004357 
00002435 


00001028 
00003,05 


00001209 
00004947 


00002734 


00002588 


00002222 


000043303 


00001357 
00002435 


00004599 
00002449 


00001599 
00002449 


00003980 
00003258 


00001359 
00002004 


00002839 


00003429 


00001874 


00002432 


0000490, 


00001599 
00002449 


00003607 
00002903 


00004607 
00002903 


00004985 
00003260 


00001360 
00002074 


00002844 


00002446 


00002224 


00001607 
00002903 


00001660 


00001660 


00002336 
0000326; 


00001610 
00002078 


00002940 


00002432 


00001660 


00004723 


00004723 


00002337 
00003344 


ooog1eit 
00002413 
00003404 


00002446 


00004723 


00004792 


00004792 


00002547 


00001850 
00002437 
00003486 


*#00003478* 


00004792 


00004795 


00004795 


00002549 


00001855 
00002375 


00003187 


000641795 


00062077 


00002077 


00002842 


00001858 
00002332 
000034388 


00002077 


00002440 


00002140 


00002866 


00001864 
00002334 
00003249 


00002440 


00002225 


00002225 


00002914 


00001889 
00002524 
00003259 


CONST 
0002 00000064 


00000526 
00002344 
00003205 


CONSTANT 
0002 *00000733* 
00000779 


CONSTANT1? 
(0002 *00000733* 


00081556 


CONSTANT2? 
0002 *#00000733* 


000014556 


CONSTSY 
0002 *00000209* 


00080944 


CONSTTAB 


0002 *00000118* 


000005 36 


CONSTTABTOP 
0040 400003157 


*#00003162* 


CONTYPE 
0029 *00002289* 


*00009344* 


CONVAL 
0029 ~00002289" 


00002314 *Q00023 


00002329 


00000534 
00002412 
00003359 


000014556 


00002344 


00002344 


00003194 


00000766 


00003438 


00002314 


00000761 
00002564 


00001624 


00002662 


00002662 


00003406 


00004400 


00001 304 
00002662 


00002314 


00002666 


00002666 


000014556 


*00002314* 00000315 


00001 325 
00002666 


00002623 


00002898 


00002898 


00002314 


00002347 


00001395 
00002670 


00002607 


00003204 


00003204 


00002662 


00002318 


00001397 
00002898 


00002662 


00002666 


00001556 00001896 


00003092 00003119 


00002666 


00002898 


00002898 


00003004 


00002088 00002209 


00003125 


00003204 


00003244 


00003204 


00003220 


14% 00002314 *900002314* 009002314 *00002314* 00002314 00002319 00002323 00002326 00002327 


o @ 


CTYPE 
0037 *00002816* 


#00002898* 

CTYPE 
0040 *00003151* 
#00003204» 


CURFUNC 
0002 #00000179* 


00002229 


CURKIND 
0039 #00003072* 


00002898 *00002898* 00002899 


00003204 »00003204*% 00003205 


00003383 *00003383**00003387* 


*000030894w00003092" 00003099 


CURLENGTH 
0002 *00000864* 


#0000089, 


00000960 
00004948 


CURLEVEL 
Q0002 *00000173* 


00000443 
00002032 
90002415 
00002870 
00003228 
00003320 
00003380 
¥00003512* 


CURMODE 
0002 ~00000182* 


*00001277* 
00004648 
*#00004799% 


CURNAME1 
0002 *00000863* 


00000893 *00000895* 
00000964 *00001004« 


00001955 


00004468 
00002055 
00002489 
00002898 
00003235 
00003328 
0000338) 


00001308 
00001668 
00001804 


00001964 


00004480 
00002066 
00002557 
000030986 
00003255 
00003340 
00003382 


00001818 


#00000891%#00000894»% 00000894 


00003107 


00000895 


00004014 
00004995 


00001321 
00002084 
00002655 
00003400 


00003267 


00003344 
00003385 


00002269 


00000905 


00002901 


00003233 


00003119 


00000897 


*90001042« 


00002314 


00004347 
00002118 
0000 2662 
000031411 
00003272 
00003346 


#90003387*% 


00004702 
00002355 


00000909 


00002903 


00003234 


00003125 


00000899 
00004042 
00002662 


00004394 
00002128 
00002666 
00003138 
00003281 
00003350 
00003387 


#00001366%#90001388**00001401**00001443*% 
*000016704 00001686 


00004709 
00002393 


00000940 


00003264 


00003133 


*00000904* 


00004015 
00002666 


00004429 
0000216) 
00009675 
00003166 
00003282 
0000335¢@ 
00003388 


00001564 
00001728 


00000914 


00003265 


00003436 


00000904 


00001046 
00002898 


0000 4556 
00002229 
00002676 
00003469 
00003294 
00003365 
00003409 


00000905 


00004020 
00003204 


0000 14883 
00002314 
0009 2696 
00003200 
00003295 
00003368 
00003449 


00000906 


00004022 
00003485 


00001890 
00002407 
00009793 
00003204 
00003309 
00003374 
00003424 


00001769 


00000912 00060943 00000944 


00000958 


00001556 
00003496 


0000494, 
00002444 
0000 286% 
00003214 
00003312 


¥90003380w 


00003444 


#00001566##990001587 #*g0001419* 00001630 
#000047304 00003754 


00001796 


00000945 


00000916 00000917 00000918 00000919 00000920 00000924 00000922 00000923 00000924 00000925 00000926 
00080927 00000928 00000929 00000930 00000933 00000932 00000933 00000934 00000935 00000936 00000937 
00000938 00000939 00000940 00000941 00000942 00000943 00000944 00000948 00000946 00000947 00000949 
00000954 00004224 00004321 00004347 90004393 00004409 00004444 00003425 00004426 000043428 00001429 
00001439 00004445 00001457 00007458 00004460 00004475 00004483 00001490 00004498 00003500 00001503 
00004510 00004545 00001520 00003524 00004530 000034534 00004532 00004533 00004534 00004535 00001556 
00004883 00004892 90001941 00002032 00002055 00002084 00002118 00002153 000021464 00002344 Oo000240F 
00002489 00009557 00002567 00002568 00002570 00002571 00009572 00002573 00002574 00009575 00002576 
00062578 00002579 00002581 00002582 00002655 00002662 00002666 00002675 00002696 00002705 00002838 
00062862 00002864 00002870 00002898 0000309— 00003111 00003200 00003204 0000322g 00003255 0000327? 
400003280 % 00003281 #00003286« 00003294 00003309 00003320 00003372 00003485 00003493 00003494 00003499 
CURNAME2 
0002 «0000086 3* 
¥0000089,% 00000900 400000900» 00000947 00000949 00000954 00001224 0000132, 00004347 00004393 00001429 
00004540 00004520 00001556 00004883 00004892 00004944 00002032 00002055 00002084 00002148 000024364 
00002314 00002907 00002489 00002557 00002569 00002577 00002580 00002655 00002662 00002666 00002675 
00009696 00002705 00002834 00002862 00002864 00002870 00002898 00003098 00003443 00003200 00003204 
00003228 00003255 00003277 #00003280* 00003284, #00003286e 00003294 00003309 00003320 00003372 
CURSY 
O002 *00000180* 

00000384 00000385 00000388 00000705 00000709 00000722 00000735 00000736 00000739 00000743 00000747 
0000075, 00000756 *00000908##00000909 #000009 45% #000009 30% #000009 397 wH0000094 3% H000009 47 #2000009 49an 0000095 ye 


#9000095 34400000954 4200000955u 00000957 200000966 4x0000097 34 x00000982e 0000099, 7000810044 x00001047 4400001027 


00004028 *00003,029# 00004030 #000040348 00004032 #00004033* 00001034 #00001035* 000040$6 #000040374% 00004038 


00004484 
00004359 
0000442 

ooogi4 as 
00004600 
00001654 
00081756 
000804782 
00001889 
00004980 
00003078 
00002459 
00002254 
00002309 
00009359 
00009429 
00005524 
00009594 
00002685 
000090756 
00009839 
00002898 
00003096 
00003189 
00003230 
00003270 


00004488 
00004360 
00004429 
00001492 
eee 
00004680 
00004757 
00001845 
00004890 


00001985. 


000020892 
00002475 
oeod2e25s5 
00000334 
0000036, 


00002437 | 


00002536 
00005595 


00002686. 


0000977, 
aeons 
000029; 
00003404 
00003191 
00003238 
00003271 


00004209 
00004364 
00004434 
00001536 
000016 

00001682 
00004758 
00004850 
00004924 
00002004 
00002098 
00002477 
00002256 
00002332 
00002382 
00002438 
00002547 
0000 2596 
00002694 
00002774 
00002842 


00002941 | 


00003105 
00003194 
00003239 
00003289 


0000424 
00004363 
00004435 
goog! 
000046 

00004694 
00004759 
00004855 
0000;9a0 
00002005 
00002099 
000021478 
00002258 
00009334 
00002383 
0000 944: 
0000254 
000095695 


00002742 


00003776 
00002853 
00002912 
00003409 
00003198 
00003240 
00003294 


00001212 
00004379 
ieee ee 
0000155 

ncouteae 
00004696 
00004760 
00004858 
000014923 
00002006 
00002109 
00002184 
00002270 
00002336 
00002384 
00002443 
00002555 
00003653 
00002714 
0000279 

00002866 
000029143 
00003139 
00003202 
00003243 
00003292 


00003245 
00004383 
00004448 
00001954 
eonpteas 
0000169 

00003764 
00001864 
00004944 
00002032 
00002413 
000024182 
0000227 5 
00002337 
800020385 
00009450 
00002588 
0000 2662 
00002747 
0000 20803 
0000 2866 
00002947 
00003140 
00003204 
00003249 
00003314 


00004222 
00004 384 
0000;452 
00001569 
00001633 
00004704 
00004774 
00004866 
00004943 
00002040 
00002416 
000022940 
00002275 
00009339 
00002388 
00002453 
00003589 
0000 2666 
00002734 
0000 2804 
00002868 
0000924 
00003442 
00003217 
00003250 
00003318 


00004265 
00004389 
00001462 
99001574 
00001638 
00001744 
00004772 
00004873 
0000 4945 
00002044 
00002337 
00002212 
00002279 
00002342 
00002390 
00002470 
0000 2590 
0000 2667 
00002735 
00002823 
0000 2888 
00003083 
00003174 
00003218 
0000359 
00003338 


00001293 
00004444 
OO0044a?y 
00001578 
00004639 
00004742 
00004775 
00004883 
00004947 
00002080 
00002443 
00002236 
00002 300 
00009343 
00002405 
0000 2487 
00002594 
00005673 
00002736 
0000 2824 
00002889 
0000 3087 
00003176 
00003219 
00003260 
00083390 


00004319 
00004447 
0000;472 
00001582 
00004640 
00004748 
00001776 
00001885 
00004948 
00002053 
00002;44 
00002250 
00002 303 
00002344 
0000 2425 
00002524 
00002590 
00009679 
00002754 
0000 28 25 
00002892 
00003089 
00003487 
00003222 
00003264 
00003392 


00004345 
00004420 
00004477 
00001585 
00004643 
00004754 
00004784 
00004887 
00004969 
00002074 
00002456 
00002253 
00002 307 
00002356 
00002428 


000025290 


00002893 
0000 2680 
00002754 
0000 28 30 
00002893 
00003090 
00003188 
000039226 
00003269 
00003402 


00003404 
00003522 


CURTYPE 
0002 #£00000181* 


00080704 
00001207 


00003406 


00000716 
00001208 


00003480 


00000717 


00003483 


00003487 


00003494 


0000 3504 


00001377 *00001177%#*00003484* 00004493 
00001219 400004229 4%%00001230%800001234% 00004236 4000012394 00001240 4000012464200001264% 
#00004268* 00004266 400001329" 00004337 400004340 # #0000 4 3444400004 3424200001 352%#00004 3844400004355" 00001357 

00004449 w00004423 4400001429 00004429 400001429 4n00001437% 


00001382 700001401 #*00001411* 00001411 
00004444 *00003444* 00004442 *00001443* 00004454 *000014455* 00004466 
00004478 400004484 %200004485% 00001485 


00081477 


*00001508*%*00001513*#00900151g**00001523*#00001527* 00001536 *00001536* 
#0000455 4 ##000015524%00001556% 00004556 4000015564 00001562 400001563e 
00004607 %00001618« 


00001598 
00001660 
00001722 
00001795 
00001863 
00001940 
00080112 
00085357 


00002502 


CURVAL 
0002 +00000862* 


*00000966**00000968* 


00004556 
00003181 


CVAL 


0037 *00002816* 
#000028986 


CVAL 
0040 *00003152* 


400003204» 
00003213 

Cx 
0002 *00000863* 
#00001043« 

C1 
0040 #00003153« 
#00003277* 


00004599 


00004970 
00002,40 
00005360 


00002503 


00002314 


00003184 


00002898 


00003204 


00001044 


08003286 


00001605 


00001617 


00001883 400004883» 


00001973 
00002165 
00002393 


00000968 *00000974* 


00001606 


00004839 


00004983 
00002468 
00005435 


00002472 00002474 


00003204 


#00002898% 00002898 «0000289g« 00002898 ~00002898" 


#00003204s 00003204 «00003204% 00003204 400003204 


00001046 


00001047 


00001412 


*00001661# 00001663 *00001665**00001666* 
00004723 *00001724% 000014726 +00001726« 
*0000479948 
#0000487 2« 


00004840 
00001684 
00001989 
90002209 
00003439 


00000974 
00002539 


00001048 


00001488 


00001666 
00004750 
00004848 
00001898 
00002032 
00002225 
00002440 


00002545 


00001049 


00004633 
00004688 
00001787 
00004849 
00004912 


#00002032* 


00002269 
00002449 


*00000994* 00000994 


00002662 


00001050 


00003805 


00001194 


00004467 


00001645 
000041693 
00001788 
00003853 
00001913 
00002034 
00002274 
0000245, 


00000997 
00002666 


00002898 


00003204 


00001053 


00003506 


00003507 


00003549 


00004399 *00001200* 00001206 


00004468 #0000447 3400001477 
00001492 #0000,492% 000014495 400001496 44100001503« 
00003537 *0000153g**00001544e4Q 000155 9% 
00001563 400004571 44000015874 00001597 


00003655 
00001699 
00004794 
00001884 


#00001944« 


00002077 
000022074 
00005484 


00002898 


00002902 


00001657 
00001748 
00004792 
00004857 
00001944 
00002094 
00002297 
00005495 


00003478 


00002906 


#00003204" 00003206 


00001659 
00001720 
00001794 
0000 4860 
700001941 % 
00002099 
00002355 
00002496 


#00000999%#0000 10 149%*0000 1402 3% 


00003179 


00002907 


00003211 


‘ 


@eeeeeeeeeeeeeeeeesesvtsee#ee»#eeese@e 


Ce 
0040 *00003153% 


#00003277* 


0034 #00002483* 
00002502 


DECL 
0002 *00000234* 


DECL 
0002 *00000586* 
00000592 
DECLAREVARS 
0002 *00002938« 
00003067 
DISPLAY 
0002 *00000074* 
00000444 
00005055 
00002666 
DIVSY 


0002 *00000198* 
00000947 


DOLLAR cca 
0002 *0000085a8* 


00001041 


oosy 


0002 *000002064 


00000940. 


00003286 

00002503 00002504 00002505 00002506 
00003272 00003368 

00004370 0000432, 00004347 9000439, 
00007084 00002118 00007161 90002314 
00002696 00002862 00002870 00002898 
00001643 00001663 

00002356 00002358 00002359 00002450 


00002543 00002514 


00004429 
00002407 
00003344 


00004556 
00002489 
00003204 


00002452 00000453 


000014883 00004892 
00002514 00002557 
00003320 


00002522 00002523 


00003944 
00002655 


00002524 


00002032 
00002664 


e® @eeeeeeee@ 
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DoT 
0002 *00000203* 


00000478 
DOUBLEDOT 
0002 *00000202* 
00000480 
DOWN 
0032 *00002400% 
#00002434+ 
DOWNTOSY 
0002 *00000207* 
00000944 


DUMMY 
0043 *00001408* 


DUMMY 
0020 *00002011* 


DUMPOPTION 
0002 *00000159* 


00001030 00001184 


00001031 


00001600 


00002458 


00002438 


00000364 *00001048* 


EDITION 
0002 *00000024* 


00000494 
ELSESY 
0002 *00000205* 
00060931 


EMPTYSET 
0002 *00000164* 


*00000532* 


00002253 00002279 


00000671 Q0dn01199 


00001215 


00002625 


00002382 


00001357 


00001234 


00002662 


00001597 


00004265 


00002666 


00001599 


00003519 


00001607 


00003522 


00001669 


000e1723 


00001792 


00001795 


00002077 00002440 00002225 00002318 00002435 00002449 00002903 


ENDOF INPUT 
0002 *00000185* 


00000269 00000g86 00001067 00003477 *00003526* 


ENOSY 
0002 *00000204* 


0008091§ 08002256 00002257 00002258 00002309 00002339 00002344 00002803 00002804 


EOF 
00441 *00003467* 


00003471 *00003474* 
EQLSY 


0002 *00000200« 
00000479 00000929 00004760 00001774 00001772 0000178; 00003202 00003230 


EQUAL 
0002 *00000858* 


00001028 00001032 00001036 
ERR 
0002 +#00000156*« 
00080397 00003684 00003686 
ERRINX 
0002 *00000434* 


00000268 00000398 200000398» 00000399 00000400 00000402 #00000402ww00000413% 00000886 00001067 00003477 
00003530 


ERRLINE 
0002 *00000133* 
90000400 00000410 00000412 00000486 
ERRNUM 
0002 *00000394*" 
00000397 00000404 00000402 00000403 


ERRNUM 


0036 *00002644« 


ERROR 


0002 #00000393* 


00002645 


00000404 
00000544 
00000726 
00000999 
00081198 
00001229 
00004287 
00001332 
0008436, 
000041420 
00004454 
00084477 
00001495 
0008155; 
00001594 
0000162% 
00001660 
00084744 
00084756 
00001777 
00004847 
00001866 
0000494 

00002035 
00002094 
00089434 
00002177 
00002969 
00002334 
00085444 
00002442 
00009516 
00002624 
00002693 


00002762. 


00002832 
00062887 


00003009 | 


00003129 
00063015 
00003268 
00003335 


00003505 


ERRORMESS1 
0044 *00003576* 


00003685 


0000046, 
00000545 
00000744 
00001008 
00001199 
00001230 
00001995 
00001338 
00001362 
00001422 


00001455 


00004478 
00001502 
00001582 
00001598 
00001638 
00001663 
00004742 
00004757 


pogg ares 


0000164 

000034867 
0@001922 
00002040 
00002095 
00002135 
06002180 
00002074 
00002336 
00009415 
00002446 
06005517 
00002625 
000027 04 


00002764 | 


00002834 
00002888 


00003078 . 


00003433 
00003216 


06003269 | 


00003337 
00003507 


00000508 
00000546 
00000752 
00001015 
00001203 
00001231 
00004298 
00001340 
0000 4365 
00001429 
00001461 
00004479 
00001507 
00004556 
00004599 
00001639 
00001669 
000041713 
00001758 


90001782 


00004843 
00001868 


00001944 


00002064 
00002096 
00002140 
00002181 
00002074 


00002340. 


00002420 
00002449 
00002518 
00002629 
00002717 


00002775 | 


00002838 
00002898 


00003082. 


00003141 
00003217 
00003284 
00003336 
00003508 


00000512 
00000555 
00000753 
00001058 
00001204 
000014240 
00004304 
00004341 
0000 4383 
00004430 
00001465 
00004480 
00001512 
00004560 
00001602 
00001949 
00004679 
00003744 
00004759 
00004783 
00004849 
00003869 


00004940 


00002097 
00002144 
00002211 
00000294 
00002344 
00002424 
00002451 
00003523 
00002630 
00002724 


00002781. 


00002842 
00002900 


90003098. 


00003479 
00003228 
00003304 
00003384 
00003509 


000005146 
00000557 


00000774 


00001400 
00001205 
00004245 
00004305 
00004342 
00004385 
00004434 
000014466 
00004485 
00001517 
00001563 
00001606 
co001642 
00001682 
00001746 
00001760 


00001785 


00004852 
00001870 
00003983 
00002069 
00002098 
00002142 
00002217 
00002299 
00002355 
00002420 
00002454 
00002540 
00002645 
00002727 


00002782 


00002645 
00002903 


90003104 


00003384 
00003236 
90003306 
00003390 
00003510 


00000520 
00000558 
00000774 
00001172 
00004207 


00001250 


00004309 
00001350 
00004399 
00004434 
00004467 
0000 4486 
00001522 
000014565 
00004607 
00001643 
00001689 
00004723 
00003764 
00001792 
00001654 
00004874 
00004987 
00002070 
00002100 
00002443 
00002222 
0000230; 
00002357 
00002403 
00002473 
00000544 
00002662 
00002729 
00002784 
00002864 
00002904 
00003102 
000031482 
00003237 
00003309 
00003396 
00003521 


00000524 
00000563 
00000775 
000044380 
00004208 
00004260 
00001312 
00001354 
0000 4400 
00004444 
00004468 
00004487 
00004526 
00004574 
00001609 
00001649 
00004696 
00004729 
00004763 
00004794 
00004857 
00003883 
00004989 
00002071 
00002412 
00009445 
00002225 
00002304 
00002360 
00009426 
00002476 
00005548 
00002666 
00002735 
00002793 
00002866 
00002908 
00003497 
00003186 
00003238 
0000 3346 
00003403 
00003526 


00000527 
00000566 
00000776 
00001182 
00004211 
00004262 
000014343 
00004354 
00004444 
00004442 
00001469 
00001488 
00001935 
00001576 
ppoerese 
00001659 
00004697 
000014742 
00001764 
00003795 
00001860 
00001884 
00002000 
00002070 
00002127 
00002370 
00002229 
00002344 
00002382 
00002430 
00002496 
00002885 
00002670 
00002736 
00002798 
00002877 
00002914 
00003325 
00003489 
00003253 
00003329 
00003434 
00003688 


00000529 
00000568 
00000777 
00001194 
00001218 
00001268 
00004344 
00001355 
00004412 
000014447 
00004470 
00003492 
00001536 
00001578 
00001613 
00001651 
00004703 
00064745 
00004770 
00001797 
00001863 
00001946 
00002005 
00002077 
00062128 
00002172 
00002233 
00002348 
00002383 
00009435 
00002498 
00002585 
00002675 
00002739 


00002799 


00002884 
000020947 
00003126 
00003200 
00003255 
00063330 
00003496 


00000533 
00000693 
00000978 
00001195 
000013220 
000014270 
00004330 
000041357 
00001448 
00004454 
00003474 
00004493 
00001537 
00004579 
00004646 
00001652 
00004704 
00001746 
00004772 
00004798 
00001864 
00004947 
00002032 
000020990 
00002132 
00002373 
00002254 
000029304 
00002387 
00002436 
00002507 
00005586 
00002678 
00002755 


00002603 | 


00002885 
00002949 
90003127 
00003204 
00003258 
00003334 
00003500 


00000542 
00000722 
00000988 
00001196 
00001228 
00001274 
00004334 


00001359 


00004449 
000014452 
00003473 
00004494 
00001549 
00004587 
00001624 
00001653 
00004740 
00004755 
00004776 
00001807 
00004865 
00001918 
00002033 
00002093 
00002433 


00002474 


00002257 
00002399 
00002393 
00002439 
00002515 
00002597 
00002680 
00002764 


00002805 _. 


00002886 
00002995 
00003128 
00003209 
00003260 
00003332 
00003502 


ERRORMESS2 


0045 


ERRORS 
0003 


EXIT 
0011 


EXIT 
0028 


EXIT 
0026 


EXIT 
0037 


EXIT 
0030 


EXBoog 


#00003639* 


00003687 


#000001886* 
00003683 


#00001285* 
00001298 *000013962* 


*00002267* 


00002275 *00002281* 


*00002203* 
00002212 *000022386+ 


#00002819* 
0000285$ *00002922* 


*00002353* 
00002364 *00002366» 


*00000879* 


*00080985* 00000986 *00000986* 


EXPRESSION 


0002 


#000014090% 


00001149 000011498 . 
0000,49pe 00004536 
00003857 00001860 
00002223 00002269 


00004307 | 


00004577 
00001863 
00002296 


00000987 *00000987* 00000989 


00004364 


00004595 
00001970 


00002355. 


000013444 00004416 00004444 
00004603 *00001734» 00004844 
00001982 00004988 00002002 
00002393 00002432 00002446 


00004450 
00004846 
00002077 


00001464 
00004838 
00062111 


00004477 
00004847 
00002140 


00001485 
00001852 
00002222 


ca ee 


EXPRLEVEL 
0002 *00001095* 


4#00001306% 00001306 ¥00001307% 00004307 *00001739* 00001739 
00004820 *00002269##00002355*#00002393+ 


EXTERNALFILE 
0002 *00000071* 


#00000565* 


EXTFILE 
0038 *00002945* 


#000029994%%00003005" 00003007 


EXTFILETAB 
0002 *00000152* 


00003008 


0048 *00001880* 
#0000;898* 


0046 *00001736* 
#00004750* 


0015 ~000016746* 


*00001688* 


0019 *00001938* 
*00001970* 


0044 *00001627* 
*00001634* 


00003499 


00001899 


00001752 


00001689 


00001972 


00001635 


00004904 


00001763 


#00001693* 


00001975 


00001642 


00003025 


00004907 


00001767 


00001694 


00001976 


00001645 


00001908 


000014779 


00001706 


00001977 


00001651 


00004740 00001804 %00001804* 00001802 00001816 


0000197g 00001987 00001994 0o0061995 00001996 00001997 


0021 *00002023* 
*00002034* 


FACTOR 
Coo2 *00001370* 


00001561 


FIELOLIST 
0002 *00002616* 


00002797 ~*00002810» 


FILEHANDLING 
0002 *00002020* 


00002040 


FILEID 
0019 *00001938* 


#9000494 1% 


FILEIO 
0038 *00001880* 


40000;883e 


FILENAME 
0002 *00000699* 


00060704 


0001883 *0000;883« 
00002014 #00002032% 


FILEPARAM 
0002 *00000702* 


00060727 
FILEPARAMI? 
0002 *00000702* 
00001429 
FILES 
0002 *00000101* 
00080747 


00002035 


00001622 


00002570 


00004950 


00004904 


00000719 


00004429 


00001883 


00004237 


00001629 


00002915 


00002573 


00001954 


00001905 


00000724 
00001883 
00002032 


000014883 


00001941 


00004429 


00001654 


00002923 


00002574 


00001952 


00004906 


00000725 


400001683 


00002033 


00004944 


00002032 


00004883 


00002575 


00001966 


00004927 


00000726 
00001883 
00002036 


00002032 


00004884 


00002577 


00004967 


00001928 


00001429 *00001429* O0001429 *00081429* 00001430 *00001883" 


00004968 


00004929 


00002008 


00004944 #0000494 1% 0000494; #00002008« 00002042 


00002037 


00004944 


00002038 


00004942 00002032 


00092035 


00002739 


00002043 


0000276, 


@®eee@eeeeeeeeee?e#eeeeteee @ @ 


00002765 00002845 00002974 
FILESY 
0002 *0000020a8* 
00000936 00002751 
FILETAB 
0002 *00000454* 
00002997 00003012 00003416 


FILETYPE 
0002 *00000102* 


00001239 *00002766# 00003040 


FINIS 
0002 #00000616* 
00000619 


FINIS 
0002 «00000865* 


00003122 


00003419 


00003041 


#00001005*#00001007##00001008* 00001009 


FIRS? 
0002 0000294 4% 


00002950 


FIRST 
0012 *00001373* 


00003424 


00003051 00003056 00003058 


00004014 #00001063#*00004070* 00004074 


#00001428* 00001434 #00001460* 00004465 *00001594% 00004593 *00004593s 


FIRST 
(0029 #000022904 


*00002308#*00002313% 00002313 


FIRST 
0037 *00002817* 


#000628274 00002829 40000262942000028954 00002897 400002897% 


FIRST 


0039 «00003073* 


*00003093**00003095* 00003095 


FIRST 
0036 *00002650* 


*#00002718* 


FIRSTADDOR 
0002 *00002618* 


FIRSTADDR 
0002 x00002B812% 


00002821 
FIRSTDIM 
003g *00002945* 
*00002979* 


FIRSTFILE 
0040 *00003154* 


#00003166~4 


FIRSTLAB 
0002 *00000125* 


00002538 


FIRSTPARAM 
0039 #00003072+ 


*00003082* 


FIRSTSYM 
0041 *00001283* 


¥00001305* 
FIRSTSYM 

0016 *00001736* 

#00001743% 


00002720 «00002720 


00002981 *00002984* 


00003415 00003427 


00003360 200003164» 00003380 


00003145 


00001309 


00001806 


00003433 2000034374 


a er ee er a Se ee Sy ey i Vy a aa 9 


FIRSTVAR 
0002 *00000143« 


#00003247* 00003266 


FIRSTWITHSYM 
0002 *00000076* 


00001171 *00002505* 


FLOATING 
QQ02 «00000090% 


00000511 0000077; 
00081972 00001976 


FNAME 
0038 «00002946~% 


*0000300G*% 00003001 


FNLENGTH 
0038 *00002947* 


00001556 
00004987 


00003005 


00003004 *00003004% 00003002 


FNSTART 
0038 #00002947*% 


*00003001* 00003015 


FORM 
0002 *00000084« 


200000511 44000005 454800000549 4200000523« 


FORMAL 


0002 *00000069« 


00000770 
0000414139 
00004599 


00004794. 


00004864 
00002077 
000023486 
0008276, 
00003122 


00000764 


00001195 
000014429 
00001606 


00001792 


00001898 
00002090 
00002417 
00009745 
00003204 


00001289 


00003017 


00001199 
00001441 
00001607 
00004794 
00001944 
00002112 
00002435 
00002764 
00003326 


00004325 


00001635 
00004994 


00003015 


00003045 


00003030 


00001220 
00004454 
00001634 
00001795 
00004942 
00002124 
00002449 
00002845 


00004395 


00001642 
00002298 


00003017 


000030147 


00000669 
00001237 
00004466 
00001639 
00004840 
00004970 
00002427 
00002496 
00002877 


00004556 


00004689 
00002314 


00003030 


00003030 


00000678 
cooole4e 
00004477 
00001660 
00001649 
00001983 
00002440 
00002624 
0000 2898 


00001896 


00004694 
00002662 


00000684 
00001248 
00004485 
00001688 
00004854 
00004989 
00002465 
00002634 
00009903 


00002088 


00001763 
00002666 


00000687 
00001303 
00001492 
00001693 
000014857 
00002032 
00002221 
00002662 
00002974 


00002207 


00004899 
00002898 


00080689 
00001357 
00001536 
000014722 
000034860 
00002034 
00002225 
00002666 
00002985 


00002344 


00004904 
00003204 


00000747 
00001382 
0000 4556 
00001723 
00004863 
0000206, 
00002298 
00002724 
00002993 


000024190 


00004908 


00000763 
00091411 
00001598 
00001750 
00004883 
00002064 
00002344 
00002739 


00003039, 


0000256, 


00002662 
FORMALPROC 
00144 *00001284+ 
#00001289* 
FORMERFIRSTLAB 
0040 *00003158* 
~00003160* 
FORSTAT 
0002 *00002397* 
00002463 
FORSY 
0002 »00000208« 
00000916 
F ORWARDDEF 
0002 #00000070* 
00003299 


FOUND 
0002 «0000042; 


00000433 


00002666 


00001291 


00003437 


00002593 


00002593 


000033014 


00000435 


00002898 *000031364 00003204 


00001365 


00003374 


000090446 


00004347 4000043474 00001347 


*00001556* 90001556 *00001583« 


00002055 +00002055* 00002055 


#000021646 
#00009489* 
#0000286" 
7000832004. 


FUN 
0040 *00003154* 


4000832948 


FUNC 
0002 *00000065« 


00000548 


00002164 


00005490 


00002662 
00002863 
00003904 


00003303 


00004352 


00002462 


00002557 #0000 9557* 
#0000 2662420000 26664 
00002870 *00009870* 


00000712 
00004348 


00001883 
00002056 


00002204 


#0000328; 00003284 


00003304 


00004404 


00003311 


00002562 


00000759 
00004394 
90001892 
00002084 
00002344 
00002557 
00002666 
00002874 
00003283 


000033146 


00002954 


*0000122 4% 
#00001391% 


#90001892* go00 


#00002084« 
w00002344% 
00003558 
#00002666% 
*00009898* 


00001224 
00004394 
1893 
00002085 
00002314 
00002655 
00002666 
00002898 


00001225 


*00001941» 
#00002118* 
200002407 
#00002655* 
200002696« 
w000034,44*% 


00003294 4000032944 00003296 


00003334 


00002964 


00003339 


00003090 


00003383 


00003304 


00001321 #00001 321% 
000031392 4000034294 00004429 


00001941 
00002118 


00002407 


00002655 


00002696 
00003444 
00003320 


00003344 


*00002032* 
00002119 
00002406 
0000 2656 
00002697 
00003412 

7900003320 ,% 


00001 322 
00001556 
00004032 
00002164 
00002489 
00002660 
00002862 
00003204 
0000332; 


FUNCSY 
0002 *00000210* 
00000949 00003087 00003090 Q0003289 000032934 
Fi 
0002 ~00000660* 
00000669 00000673 00000672 00000674 00000678 00000680 00000684 00000686 00000687 90000692 00000693 
000801499 %00001499w 00001199 £000011994 900001199 #00001199%%00001357% 00001357 4000013574 00001357 400001357 
00004599 #00004599% 00004599 400004599" 00004599 %00004599%#00004607% 00001607 *00004607% 00001607 #00004607% 
00001607 #00001607% 00001607 00001660 4000016604 00001660 #000016604 00001660 4000016604400001723% 90001723 
*00001723* 00001723 *00001723* 00001723 *00001723* 00001723 00001792" 00001792 *00001792* 00001792 *00001792* 
00004795 #00004795% 00001795 400004795 0000179§ 00002077 200002077 00002077 200002077% 00002077 400002077« 
*00002140% 00002440 «000021408 00002340 «000021404 00002440 00002225 200002225* 00002225 200002225» 00002225 
#00009925* 00002025 00002318 *000023148* 900002348 *000023484 00009348 #000023;8* 000093148 #000023164400082435% 
00002435 w00002435e 00002435 400002435 90002435 700002435% 00002449 400002449 e 00002449 4000024494 00002449 
*00005449* 00009449 00002903 #00009903* 00002903 #00009903* 0000903 #0000390 3% 00002903 #00002903% 00002903 
F2 
0002 *00000660* 
00000669 00000670 0000067; 00000672 90000674 00000678 90000680 00000884 00060688 00000689 00000692 
00000693 400003499 00001199 400001499" 00001199 4000041994 00004199 00001357 400001357" 00001357 00001599 
#00004599*% 00004599 *00001599*% 00004599 00001607 #00001607* 00004607 400001607*% 00001607 #00001607% 00001607 
00001660 #000016608 00001660 400001660% 00004660 %700001660% 00003660 4000017234 00001723 2000017234 00001723 
#00004723" 00004723 00004792 *0000479Q* 00004792 400004792" 00004792 #00004792" 00001792 «000014799 00001792 
00004795 «08004795 00001795 400004795" 00001795 400004795 00002077 4000020774 O00020F7 4000020774 00002077 
*00005077* 00009140 *00002140* 00009140 *00002140* 00002140 *00009225* 00002225 *00002205* 00002205 *00002318* 
00009348 400002318% 00002348 4000023148 %400002435% 00002435 w000020435e 00002435 00002449 4000024494 00002449 
*00002449* o9002449 *00002903* 00002903 *00002903* 00002903 *00002903* 00002903 *00062903* 00002903 
GEN 


0002 #00000279* 


00000304 
00001904 
00001928 
00001967 
00004994 
00002026 
00002067 
00002146 
00002269 
00002354 
00002 445 


00002958. 


00002981 
00003024 
00003046 
00003066 


00000330 
00001905 


00001929 


00004968 
00004995 
00002027 
08002068 
09002153 
09002277 


00002355 


00002 447 


00002961. 


o0cc0e982 
00003028 
00003047 
00003469 


00000344 
00001906 
00001934 
00001974 
00001996 
00902028 
00002076 
00002154 
00002280 
00002363 
00002448 
00002962 
00002984 
00003029 


00003048 


00003173 


00000345 


00001907 
00004940 


00004975 


00004997 
00002029 


00002080 


00002467 
00009295 


00002377 


00002456 


00002963 


00002988 
00003030 
00003049 
00003467 


00000346 
00001908 
00004950 
00004976 
00003998 
00002030 
00002090 
00002171 
00002297 
00002384 
00002457 
00002967 
00002992 
0000303, 


00003050 


000034390 


00004135 
00001909 
00004954 
00004977 
00002004 
00002032 
00002304 
00002220 
000023144 
000023990 
00002458 
00002968 
00003013 
00003033 
00003053 
00003339 


00001437 
00001912 
00003952 
00004978 
00002003 
00002036 
00002408 
00002224 
00002349 
00002393 
00002459 
00002969 
00003014 
000030 36 
00003056 
00003340 


00001809 
00001913 
00004960 
00001979 
00002042 


00002037 


00002115 
00002248 
00002332 
00002403 
00002 461 
00002973 
00003015 
00003038 
00003058 
00003344 


00001882 
00001914 
00001964 
00001984 
00002043 
00002038 
00002130 
00062252 
00002335 
00002434 
00002 474 
00002976 
ooogsolé 
000903042 
00003060 
00003349 


00001902 
00001920 
00003962 
00001990 
00002044 
00002039 
00002134 
00002260 
00002349 
00002433 
00002545 
00002977 
00003017 
00003043 
0000306, 
00003354 


00001903 
00001927 
00001966 
00001994 
00002046 
00002048 
00002139 
00002268 
00002345 
00002434 
0000258, 
00002978 
00003020 
00003044 


00003354 — 


00003356 
00003413 


0002 ~00000288* 


00001904 
00001968 
00002319 
00003013 
00003419 


0002 *00000288* 


00004904 
000014968 
00009349 
00003033 
00003419 


0002 *000002848* 


00001904 
00001968 
00009349 
00003043 
00003419 


0002 *00000288* 


00004904 
00004968 
00009349 
00003013 
00003419 


0002 200000299 


00000312 
00001962 
00002067 
00009269 
00003044 


0002 *00000299* 


00004809 


00003362 
00003418 


00001905 
00002042 
00002431 
00003020 
00003424 


00003905 
00002012 
00002431 
00003020 
00003424 


00004905 


00002042. 
Heres 


0000302 
00003424 


00004905 
00003012 
00000434 
0090030920 
00003424 


00001140 
00004975 
00002068 
00002349 
00003056 


000014902 


00003364 
00003420 


00001906 
00002013 
00002445 
00003049 


000014906 


00002043 
00002445 
00003049 


00004906 


00002043 


00002445 
00003049 


00001900 
00002013 
00002445 
00003049 


00001809 


00004976 


00002090. 


00002355 
00003058 


00001907 


00003367 
00003425 


00003927 
00002044 
00002456 
00003064 


00001927 
00002014 
00002456 
00003064 


000019927 
00009044 
00005456 
0000306, 


00004927 
00009044 
00003456 
00003061 


00001902 
00004977 
00002404 
00002393 


000014908 


00003369 
00003444 


00004928 
00002036 
00002457 
00003178 


00001928 
00002036 
00002457 
00003178 


00001928 
00002036 
00002457 
00003178 


00003928 
00002036 
00002457 
00003178 


00001907 
00001978 
00002430 
00002433 


00001909 


00003376 


00001929 
00002037 
00002459 
00003340 


00004909 
00002037 
00002459 
00003340 


00004929 
00002037 
00005459 
00003340 


00004929 
00002037 
00002459 
000033409 


00001908 
00003994 
00002434 
00002447 


00001942 


00003394 


00004950 
00002038 
00002474 
00003346 


00004950 
00002038 
00002474 
0000 3346 


000014950 
00003038 


00000474 


00003346 


00004950 
00005038 
00002474 
00003346 


00001909 
00004995 
00002446 
00002584 


00001943 


00003397 


00001954 
00002065 
00002548 
00003350 


0000495, 
00002065 
00002545 
00003350 


00004954 
00002065 
00002945 
00003350 


00004954 
00002065 
00002845 
00003350 


00001912 
00001996 
000021567 
00002989 


00001944 


00003400 


00001952 
00002129 
00002963 
00003352 


00001952 
00002129 
00002963 
00003352 


00061952 
000021429 
00002963 
00003352 


00061952 
Coogee. 
00000963 
00003352 


00001913 
00001997 
00002174 
00062984 


00001964 


00003414 


00001966 
00002230 
00002970 
00003368 


00001966 
00002230 
00002970 
00003365 


00001966 
00002230 
00002970 
00003365 


00001966 
00002230 
00002970 
00003365 


00001914 
0000200, 
00002220 
00003049 


00001960 


00003442 


00001967 
00002295 
00002978 
00003399 


00001967 


00002295 


(00002978 


00003399 


00004967 
00002295 


00003399 


00001967 
00002995 
00002978 
00003399 


00001961 
00002039 
00002224 
00003043 


00001975 


GENREAL 


00003976 
00002090 
00002355 


00003058 


0002 «00000315* 


GEN}? 


00000348 
00002433 


0002 «00000279* 


GEN2? 


00000330 
00081907 
00003940 
00001975 
00004997 
00002029 
00002080 
00002167 
00009098 
00002377 
00003456 
00002963 
00005988 
00003030 
00083049 
00003187 
00003367 
00003425 


0002 «00000279 


00000330 
00084907 
00004940 
000041975 
000041997 
00002029 
00002080 
00002167 
00002095 
00009377 
00082456 
00002963 
00002988 
00003030 
00003049 
00003187 
0000 3367 
00003425 


* 


00001977 
00002404 
00002393 


00001440 
00002447 


00000341 
00001908 
00001950 
00001976 
00001998 
00002030 
00002090 
00002171 
000029097 
00002384 
000090457 
00002967 
00002999 
00003034 
00003050 
000031490 
00003369 
00003441 


00000341 
00001908 
000014950 
00001976 
00001998 
00002030 
00002090 


00002471. 


08002297 
00009381 
00002457 
08002967 
000029990 
00003031 
00003050 
00003490 
086003369 
00003441 


00001978 
00002130 


00002433 


00001809 
00002584 


00000345 
00001909 
00001951 
00004977 
00002004 
00002032 
00002104 
0000e220 
00002314 
00002392 
00002458 
00002968 
00003043 
0000 3033 
0000 3053 
00003339 
00003376 


00000345 
00001909 
00001951 
00004977 
00902004 
00002032 
00002104 
00002220 
00002311 
00009392 
00002458 
00002968 
00003013 


00003033 


00003053 
00003339 
00003376 


00001994 
00002134 
00002447 


00004902 


00000346 
00001942 
00001952 
00004978 
00002003 
00002036 
00002108 
00002224 
000093419 
00003393 
00009489 
00002969 
00003044 
00003036 
00003056 
00003340 
00003391 


00000346 
00001912 
00001952 
00004978 
00002003 
00002036 
00002108 


00002224 


00002319 
00009393 
00002459 
00002969 
000030144 
00003036 
00003056 
00003340 
00003394 


00001995 
00002146 
00002584 


00002090 


00001809 
00004949 
00001960 
00001979 
00002042 
00002037 
00002115 
00002246 
00002332 
00002403 
00002464 
00002973 
00003045 
00003038 
00003058 
00003344 
00003397 


00001809 
00001913 
00001960 
00004979 
00002012 
00002037 
00002415 
00002248 
00002332 
00002403 
00002464 
00002978 
00003048 
00003034 
00003058 
00003344 
00003397 


00004996 
00002167 
00002980 


00002167 


00001882 
00004914 
00004964 
00001984 
eee ee 
00002038 
00002130 
oo0ge2s2 
00009335 
00002434 
00002474 
00009976 
00003046 
00003042 
0000 3060 
00003349 
00003400 


00001882 
00001944 


00001964 


000014984 
00002043 
00002038 
00002430 
00002252 
00002335 
00005431 
00002474 
00002976 
00003046 
00003042 
00003060 
00003349 
0000 3400 


00001997 
00002474 
00002984 


00002220 


000041902 
00001920 
00001962 
0000 4990 
epaecee e: 
00002039 
00002331 
00002260 
00000340 
00002433 
00009545 
00009977 
0000 3047 
00003043 
0000 3064 
00003354 
00003411 


00001902 
00001920 
00004962 
00004990 
00002044 
00002039 
00002133 
00002260 
00002342 
00009433 
00002545 
00002977 
00003017 
00003043 
00003064 
00003351 
00003414 


0000200 
0000222 
00003040 


00002224 


00001903 
000014927 
00001966 
00001994 
00002046 
00002048 
00002139 
00002268 
00002345 
00002434 
00002584 
00002978 
00003020 
00003044 
0000 3069 
00003354 
00003412 


00001903 
00001927 
00001966 
00004993 
00002016 
00002048 
00002439 
00002268 
00002345 
0000 2434 
00002584 
000029758 
00003020 
00003044 
00003062 
00003354 
00003442 


00002039 
00002224 
00003043 


00002269 


00001904 
000014928 
000034967 
00001994 
00002026 
00002067 
00002146 
00002269 
00002354 
00002445 
000099586 
0000296, 
00003024 
00003046 
0000 3066 
00003336 
00063413 


00001904 
00084928 
00001967 
00004994 
00062026 
00002067 
00002146 
00002269 
00002354 
00002445 
00002958 
00002981 
00003024 
00063046 
00003066 
00003356 
00003413 


00002067 
00002269 


00003044 


00002355 


00001905 
00001929 
00001968 
00001995 
00002027 
00002068 
00002153 
o0002e77 
00002355 
00002447 
0000296, 
00002989 
00003028 
00003047 
0000 3469 
00003362 
00003418 


00001905 
00003929 
00001968 
00001995 
00002027 
00002068 
00002153 
00002277 
00002355 
00002447 
00002964 
00002982 
00003028 
00003047 
00003169 
00003362 
00003448 


00002068 
00002319 
00003056 


00002393 


00001906 
0000193, 
00001974 
0000 1996 
00002028 
00002076 
00002154 
00002289 
00002363 
00002448 
00002960 
00002984 
00003029 
00003048 
00003473 
00003364 
00003429 


00001906 
00001934 
00001974 
00001996 
00002028 
00002076 
00002154 
00002280 
00002363 
00002448 
00002962 
00002984 
00003029 
00003048 
00003173 
00003364 
00003420 


GEN3? 
0002 *00000279* 


00000330 
00001907 
00004940 
00004975 
00001997 
00002029 
00002080 
00002167 
0000229§ 
00009377 
00002456 
00002963 
00002988 
0000 3030 
00003049 
00003187 
0000 3367 
00003425 


GEQSY 
0002 *00000200* 


00000477 


GOTOSTAT 
0002 «00002466* 


00002477 


GOTOSY 
0002 *00000207¥ 


00000934 


GTRSY 
0002 *00000200* 


00000477 


HASH 
Q002 *00000417* 


00000425 
00000544 
00084347 
00002161 
000028692 


00000344 
00001908 
00004950 
00001976 
06001998 
00002030 
00002090 
06002174 
00002297 
00000384 
00002457 
00009967 
000029992 
00003031 
00003050 
00003190 
00003369 
00003441 


00000926 


0@002595 


00002595 


00000927 


00000453 
00000545 


000014394 
00002314 
00002864 


00000345 
00001909 
00004954 
00001977 
00002003 
00002032 
00002101 
00002220 
00002311 
00002392 
00002458 
0000 2966 
00003033 
0000 3033 
00003053 
00003339 
0000 3376 


00001037 


00001036 


00000508 
00000546 
00003429 
00002407 
00002870 


00000346 
00001912 
00004952 
00001978 
00002003 
00002036 
00002108 
00002224 
00002349 
000020393 
00002459 
00002969 
00003044 
0000 30 36 
00003056 
00003340 
00003394 


00001758 


00004759 


00000542 
00000555 


00001556 
00005489 


00002898 


00001809 
00001913 
00004960 
00004979 
00002012 
00002037 
00002115 
00002248 


00002332 


00002403 
0000246, 
00002978 
00003045 
0000 3038 
00003058 
00003344 
00003397 


00001776 


00000516 
00000557 
00001883 
00002557 
00003094 


00001882 
00001914 
00004964 
00003964 
00002013 
00002038 
00002330 
00000250 
00002335 
00002434 
00002474 
00002976 
00003046 
00003040 
0000 3060 
00003349 
0000 3400 


00000520 
00000558 
00004892 
00003655 
00003111 


00004902 
00004920 
00004962 
00004990 
00002014 
00002039 
00002434 
00002260 
00002342 
00002433 
00002545 
00002977 
00003017 
00003043 
00003061 
00003351 
00003441 


00000524 
00000563 
00001944 
00009662 
00003200 


00001903 
00001927 
00001966 
00001994 
00002016 
00002048 
00002439 
00002268 
00002345 
00002434 
00002584 
0000 2978 
00003020 
00003044 
000030690 
000033594 
00003412 


00000527 
00000566 
000020392 
00002666 
00003204 


00001904 
00001928 
00004967 
00001994 
00062026 
00002067 
00002146 
00002269 
00002354 
00002445 
00002958 
0000996, 
00083024 
0000 3046 
0000 3066 
000033386 
00003443 


00060529 
00000568 
00062055 
00082675 
00003228 


00001905 
00001929 
00001968 
00001995 
00002027 
00002068 
00002153 
00002277 
00002355 
00002447 
00002964 
00002989 
00003028 
0000 3047 
00003469 
00003362 
0000 3448 


00000533 
00001224 
00002084 
0000696 
00003255 


000041906 
00001934 
00001974 
00001996 
00002028 
00002076 
00002154 
00002280 
00002363 
00002448 
00002962 
00002984 
000030929 
0000 3048 
00003173 
00003364 
00003420 


00000542 
00001324 


00002118 
0000 2834 


00003284 


HASH1? 
0002 


HEADING 


0002 


HEADTEX 
0002 


0019 


0033 


0035 


0037 


0038 


00003294 


#00000417* 


00000508 
00000546 
00004429 
00002407 
00002876 
00003328 


*00000241* 


00000048 
00003692 


T 
*00000133* 


00000944 
00004044 


*#0000193g* 
00001954 


#00002468* 


w00002474% 


#00002533* 
00002538 


*#00002816* 
00002847 


*00002944* 
00002950 


00003309 


00000512 
00000555 
00001556 
00002489 
000028986 


00000054 


00000 246 
00004067 


00001955 


00002472 


00002539 


00002850 


00002952 


00003320 


00000516 
00000557 
00001683 
00002557 
00003098 


00000409 


00000409 
00003477 


00000520 
00000558 
00004892 
00002655 
000034341 


00000504 


00000493 
00003529 


2000024724 00002472 


90002540 


00002544 


00000524 
00000563 
00003944 
00002662 
00003200 


00000633 


00000494 
00003690 


00002473 


00000527 
00000566 
00002032 
00002666 
00003204 


00000644 


00000496 


*00002906* 00002907 *00002907* 00002908 


00000529 
00000568 
00002055 
00002675 
00003228 


00000886 


00000499 


00000533 
00001224 
00002084 
00002696 


00003255 


00004044 


0000050, 


00000542 
00001324 
00002148 
00002834 
00063284 


00004067 


00000633 


00000544 
00004347 
000021464 
00002862 
00003294 


00003477 


00000644 


00000545 
00001394 
00002344 
00002864 
00003309 


00003529 


00000886 


wt + 


